perl for循环求助

方小兰

work.txt
1        00110010
4        00110010
5        00001000
8        00011000
10        00100010
16        00000110
25        00010000
29        01110010
31        00110000
37        11100010
38        00111000
41        10000010
45        01100000
49        10000001
50        01001000
52        11111010
55        10000110
57        11111010
59        10000010
60        10000000
61        11000000
67        00000000

output.txt
0        3
1        2
2        2
3        3
4        3
5        4
6        3



自己写的程序
open IN,"work.txt";

my $num;
for (my $i=0; ;i+=10)   ####如果加上$i <=***,这个循环才能终止吗？
{       
        my $temp="";
        while (<IN>)
        {
                chomp;
                my @a=split;
                if ($a[0] >= $i && $a[0] < $i + 10)
                {if ($a[1] ne $temp){$num++;}}
        }
        print "$i\t$num\n";
}


####
$num是，在满足$a[0] >= $i && $a[0] < $i + 10的前提下，第二列字符串去重复的个数

huang6894

貌似结果跟你有点出入~

1. #!/usr/bin/perl -w
   
2. 
   
3. open IN,"< work.txt" || die "$!";
   
4. my (%h,%new);
   
5. while(<IN>){
   
6.                 chomp;
   
7.                 my @tmp = split;
   
8.                 my $a = int($tmp[0]/10);
   
9.                 push @{$h{$a}},$tmp[1];
   
10. }
    
11. close IN;
    
12. for my $key (sort{$a <=> $b}keys %h){
    
13.         my $num = grep { ++$new{$_} < 2 } @{$h{$key}};
    
14.         print "$key\t$num\n";
    
15. }

复制代码

q1208c

没有结束条件的for,不就是死循环么.

dav_

你问题没有说明清楚，满足$a[0] >= $i && $a[0] < $i + 10的前提下，第二列字符串去重复的个数
而你代码中 $temp是在 $i 变动时重置，这样第38个要跟41比吗?
而且LZ条件if ($a[0] >= $i && $a[0] < $i + 10) {if ($a[1] ne $temp){$num++;}}
这样第10 20 30 … 都不会去比对
我照着代码意思练习了一下，代码中不会比较38 与41这种跨过10的，并且比较的范围区间是0-9  10-19  20-29 ……

1. 
   
2. my ($num, $loop, $tmp) = (undef, 0, '');
   
3. open IN, 'work.txt';
   
4. while(<IN>){
   
5.         chomp $_;
   
6.         my @data = split;
   
7.         $tmp = '' if $data[0] > $loop * 10 + 10;
   
8.         $loop++ if $data[0] > $loop * 10 + 10;
   
9.         $num->{$loop} ++ if $tmp ne $data[1];
   
10.         $tmp = $data[1];
    
11. }
    
12. close (IN);
    
13. open W, '>output.txt';
    
14. for(sort keys %$num){
    
15.         print W "$_\t", $num->{$_} - 1, "\n";
    
16. }
    
17. close(W);
    

复制代码

方小兰

是我自己肉眼算错了，你的代码是对的。多谢!
回复 2# huang6894


   

方小兰

嗯，第38个不需要跟第41个比

回复 4# dav_