用于多个范围的循环的Perl

发布时间：2020-12-16 06:05:55 所属栏目：大数据来源：网络整理

导读：在for循环中设置范围计数器的最佳方法是什么？我有一个制表符分隔输入文件,其中前两列很重要.我想找到它们在Pos值范围内出现的分数的最小值和最大值.所以对于示例输入文件： Pos Score1 52 179 8038 2240 117 0302 1985 3312 51293 15 1961 871 15 如果存在,

在for循环中设置范围计数器的最佳方法是什么？我有一个制表符分隔输入文件,其中前两列很重要.我想找到它们在Pos值范围内出现的分数的最小值和最大值.所以对于示例输入文件：

Pos     Score
1       5
2       17
9       80
38      22
40      11
7       0
302     19
85      33
12      51
293     1
5       19
61      8
71      15

如果存在,我需要计算每个范围的最小和最大分数.

1-29 (min=?,max=?)
30-59 (min=?,max=?)
60-89 (min=?,max=?)

预期成绩：

1-29 (min=0,max=80)
30-59 (min=11,max=22)
60-89 (min=8,max=33)
290-219 (min=1,max=19)

还有另一个与此相关的线程,但它们只计算具有设定范围的事件.我的尝试是设置for循环：

use List::MoreUtils qw( minmax );
my %inputhash;
my %storehash;

open (FF,$inputfile) || die "Cannot open file $inputfile";
while(<FF>) {
    next if $. < 2; #use to trim off first line if there is a header
    my ($Pos,$Score)  = split;
    $inputhash{$Pos} = $Score;
}


for (my $x=1; $x<1600; $x+29) #set to 1600 for now
{
    my $low = $x;
    my $high = $x+29;
    foreach my $i ($low...$high)
    {
        if (exists $inputhash{$i})
        {
            my $score = $inputhash{$i};
            push (@{$storehash{$high}},$score);
        }
    }
} 

foreach my $range (sort {$a <=> $b} keys %storehash)
{
    my ($minrange,$maxrange) = minmax @{$storehash{$range}};
    print "$range: $minrange,$maxrangen";
}

有没有更好的方法来处理这个？这个当前的实现给了我一个错误：在void上下文中无用的addition().

解决方法

use strict;
use warnings;

use List::Util qw(max min);

my $step = 30;  # group into 30 item ...
my @bins;       # ... bins

<DATA>;         # skip line
while (<DATA>) {
  my ($p,$s) = split;
  push @{$bins[$p / $step]},$s; 
}

for (my $i = 0; $i < @bins; $i++) {
    next if not $bins[$i];
    printf("%d,%d  (min %d,max %d)n",$i * $step,($i + 1) * $step,min(@{$bins[$i]}),max(@{$bins[$i]}));
}

__DATA__
Pos     Score
1       5
2       17
9       80
38      22
40      11
7       0
302     19
85      33
12      51
293     1
5       19
61      8
71      15

产量

0,30  (min 0,max 80)
30,60  (min 11,max 22)
60,90  (min 8,max 33)
270,300  (min 1,max 1)
300,330  (min 19,max 19)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!