求助：perl合并區(qū)間

xiaotuoba001

比如有如下數(shù)據(jù)，第一列是分類，第二列是起始位置，第三列是結(jié)束位置
01 100 200
01 700 820
01 710 800
01 850 900
01 2000 2367
02 350 546
02 1543 1789
02 1543 1790
如果第二行的起始位置與前一行的結(jié)束位置之差<300的時候，就把他們的區(qū)間并在一起

結(jié)果如下：
01 100 200
01 700 900
01 2000 2367
02 350 546
02 1543 1790

想要知道這樣的腳本怎么寫，自己用循環(huán)已經(jīng)亂成一團了。。

substr函數(shù)

放棄了。居然這么和諧。

qianyemlf

菜鳥感覺很復雜，求版上大神解決看看

yestreenstars

Po Code...

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my($type, $start_pos, $end_pos) = split /\s+/, <DATA>;
   
6. while(<DATA>){
   
7.         my @field = split;
   
8.         $end_pos = $field[2] and next if $field[0] == $type and $field[1] - $end_pos < 300;
   
9.         print "$type $start_pos $end_pos$/";
   
10.         ($type, $start_pos, $end_pos) = split;
    
11. }
    
12. print "$type $start_pos $end_pos$/";
    
13. 
    
14. __DATA__
    
15. 01 100 200
    
16. 01 700 820
    
17. 01 710 800
    
18. 01 850 900
    
19. 01 2000 2367
    
20. 02 350 546
    
21. 02 1543 1789
    
22. 02 1543 1790

復制代碼

wiliiwin

回復 4# yestreenstars

學習了，思路很清晰


   

清泉一邊

1. #!/usr/bin/perl
   
2. use strict;
   
3. my %hash;
   
4. while (<DATA>){
   
5. chomp;
   
6. my ($name,$s,$e) = split /\s+/,$_;
   
7. push @{$hash{$name}},[$s,$e];
   
8. }
   
9. foreach my $k (keys %hash){
   
10. my @sort =  sort {$a->[0] <=> $b->[0]}@{$hash{$k}};
    
11. my $start = $sort[0][0];
    
12. my $end = $sort[0][1];
    
13. for my $i (1..$#sort){
    
14.   if ($end >= $sort[$i][0] -300){
    
15.       $end =  $sort[$i][1];
    
16.   }
    
17.   if ($end >= $sort[$i][1]){next;
    
18.   }
    
19.   else {
    
20.   print "$k\t$start\t$end\n";
    
21.   $start =  $sort[$i][0];
    
22.   $end =  $sort[$i][1];
    
23.   }
    
24. }
    
25. print "$k\t$start\t$end\n";
    
26. }
    
27. 
    
28. __DATA__
    
29. 01 100 200
    
30. 01 700 820
    
31. 01 710 800
    
32. 01 850 900
    
33. 01 2000 2367
    
34. 02 350 546
    
35. 02 1543 1789
    
36. 02 1543 1790

復制代碼

回復 1# xiaotuoba001


   

xiaotuoba001

回復 4# yestreenstars


    很清晰，學習了！

xiaotuoba001

回復 6# 清泉一邊


    謝謝幫助，學習了呢！:wink:

xiaotuoba001

回復 7# walklan


    受益匪淺，謝謝！