求助：perl合并区间

xiaotuoba001

比如有如下数据，第一列是分类，第二列是起始位置，第三列是结束位置
01 100 200
01 700 820
01 710 800
01 850 900
01 2000 2367
02 350 546
02 1543 1789
02 1543 1790
如果第二行的起始位置与前一行的结束位置之差<300的时候，就把他们的区间并在一起

结果如下：
01 100 200
01 700 900
01 2000 2367
02 350 546
02 1543 1790

想要知道这样的脚本怎么写，自己用循环已经乱成一团了。。

substr函数

放弃了。居然这么和谐。

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


    受益匪浅，谢谢！