如何进行重叠合并

newfinder

回复 10# q1208c
好的，非常感谢呀！！！

   

os4fun

乱序的确不可以。
看数据似乎有规律，我就假设满足规律来做了。
一个小脚本不是必要情况不愿意考虑全面，可能用一次再也不用第二次，懒的花时间。
还是你的脚本好。
回复 8# q1208c


   

q1208c

回复 12# os4fun

  我的不满足需求. 楼主要求是只处理重叠的, 不处理连续的. 虽然我表示不理解, 但需求如此.
   

yestreenstars

1. #!/usr/bin/perl
   
2. my ( $label, $min, $max );
   
3. print scalar <DATA>;
   
4. while (<DATA>) {
   
5.         chomp;
   
6.         my @line = split /[:-]/;
   
7.         if ( $. > 2 ) {
   
8.                 $max = $line[2] and next if $line[0] eq $label && $line[1] <= $max;
   
9.                 printf "%s:%d-%d\n", $label, $min, $max;
   
10.         }
    
11.         $label = $line[0];
    
12.         $min = $line[1];
    
13.         $max = $line[2];
    
14. }
    
15. printf "%s:%d-%d\n", $label, $min, $max;
    
16. __DATA__
    
17. Name         distance
    
18. name1        dis1:1-5
    
19. name1        dis1:2-6
    
20. name1        dis1:7-9
    
21. name1        dis1:10-12
    
22. name1        dis1:11-14
    
23. name2        dis2:5-8
    
24. name2        dis2:6-12
    
25. name2        dis2:7-14
    
26. name2        dis2:14-15
    
27. name2        dis2:17-19
    
28. name2        dis2:20-22
    
29. name2        dis2:21-25

复制代码

afukada

回复 1# newfinder


這裡有相關的討論{:3_189:}

http://bbs.chinaunix.net/thread-4072746-1-1.html

yestreenstars

回复 15# afukada

这个跟楼主要的结果不一样好吧~{:2_166:}
   

afukada

是一樣的阿

都是要把重複的地方合併阿

只是標題看起來不一樣而已

q1208c

回复 14# yestreenstars

这个有点小问题, 如果把 输入中的第二和第三行换个位置, 得到的结果就很有意思了.
   

yestreenstars

回复 18# q1208c

没问题吧？我这个只支持排序后的文本~
   

q1208c

回复 19# yestreenstars


  我说的就是不排序的输入有问题.