【问题】连续区间合并

stanley_tam

貌似设置几个变量记录上一行的信息和start number就可以了，这样行不行{:3_193:}

1. #!perl
   
2. use Modern::Perl;
   
3. use FileHandle;
   
4. 
   
5. my $your_data_file = 'a.txt';
   
6. my $fh = FileHandle->new($your_data_file, 'r');
   
7. 
   
8. my $start_num = q{};
   
9. my $last_line = [ q{}, q{}, 0, q{}, q{}, q{} ];
   
10. 
    
11. my $count = 0;
    
12. while (my $line = $fh->getline) {
    
13.     # remove trailing newline
    
14.     chomp $line;
    
15. 
    
16.     # get columns of current line
    
17.     my $current_line = [(split /\s+/, $line)];
    
18. 
    
19.     # compare currentline with last line
    
20.     if ($current_line->[2] == $last_line->[2] + 1) { # number increase by one
    
21.         
    
22.         if ($last_line->[1] eq $current_line->[1] and
    
23.             $last_line->[4] eq $current_line->[4] and
    
24.             $last_line->[5] eq $current_line->[5]) { # column 2, 5, 6 are equal
    
25.             # valid consecutive row, note it
    
26.             ++$count;
    
27.         }
    
28.         else {
    
29.             # column 2, 5, 6 not equal
    
30.             # the first line doesn't count, $count equal 2 suffice
    
31.             if ($count >= 2) {
    
32.                 my @copy = @{ $last_line };
    
33.                 $copy[2] = "$start_num-$copy[2]";
    
34.                 say join "\t", @copy;
    
35.             }
    
36. 
    
37.             # reset
    
38.             $start_num = $current_line->[2];
    
39.             $count     = 0;
    
40.         }
    
41.     }
    
42.     else {
    
43.         # number not consecutive
    
44.         if ($count >= 2) {
    
45.             my @copy = @{ $last_line };
    
46.             $copy[2] = "$start_num-$copy[2]";
    
47.             say join "\t", @copy;
    
48.         }
    
49. 
    
50.         # reset
    
51.         $start_num = $current_line->[2];
    
52.         $count     = 0;
    
53.     }
    
54. 
    
55.     $last_line = $current_line;
    
56. }
    
57. 
    
58. $fh->close;
    
59. 
    
60. __END__

复制代码