如何进行重叠合并

newfinder

回复 28# q1208c
不好意思啊，大侠们，这两天没上网，今天看到大家的留言，让我这个有问题就求助，不怎么独立思考的人感到非常羞愧啊。。。。

其实我的数据里有的不是乱序，有的是，但还好数据量不是很大。

多谢大家给的建议及提醒啊。。。
   

yestreenstars

回复 30# newfinder

排序不难，要是你觉得困难我可以帮你
   

expert1

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

http://bbs.chinaunix.net/thread-4098548-3-1.html

newfinder

回复 32# yestreenstars

大侠，我现在再看我的数据的时候又发现了问题，数据是如下的：

Name         distance        value
name1        dis1:1-5        1
name2        dis1:2-6        2
name1        dis1:7-9        3
name1        dis1:10-12     3
name2        dis1:11-14     2
name2        dis2:5-8        4
name1        dis2:6-12       5
name2        dis2:7-14       2
name2        dis2:14-15     3
name1        dis2:17-19     4
name2        dis2:20-22     1
name2        dis2:21-25     6
……

我想合并后的结果成为如下的形式：

Name distance value
name1,name2  dis1:1-6  1,2
name1  dis1:7-9  3
name1,name2  dis1:10-14  3,2
name2,name1,name2,name2  dis2:5-15  4,5,2,3
name1  dis2:17-19  4
name2,name2  dis2:20-25  1,6

不知道该怎么写呢，请大侠赐教啊！   

yestreenstars

回复 34# newfinder

没有比这更丑陋的代码了~{:2_169:}

1. #!/usr/bin/perl
   
2. my($distance, $min, $max, @name, @value);
   
3. while(<DATA>){
   
4.         chomp;
   
5.         if($. > 1){
   
6.                 my($temp1, $temp2, $temp3) = /(\S+:)(\d+)-(\d+)/;
   
7.                 if($temp1 eq $distance and $temp2 <= $max){
   
8.                         $max = $temp3;
   
9.                         my @fields = split;
   
10.                         push(@name, $fields[0]);
    
11.                         push(@value, $fields[2]);
    
12.                         next;
    
13.                 }else{
    
14.                         print join(',', @name) . " $distance$min-$max " . join(',', @value), $/;
    
15.                         undef @name;
    
16.                         undef @value;
    
17.                 }
    
18.         }
    
19.         my @fields = split;
    
20.         push(@name, $fields[0]);
    
21.         push(@value, $fields[2]);
    
22.         ($distance, $min, $max) = /(\S+:)(\d+)-(\d+)/;
    
23. }
    
24. print join(',', @name) . " $distance$min-$max " . join(',', @value), $/;
    
25. __DATA__
    
26. name1        dis1:1-5        1
    
27. name2        dis1:2-6        2
    
28. name1        dis1:7-9        3
    
29. name1        dis1:10-12     3
    
30. name2        dis1:11-14     2
    
31. name2        dis2:5-8        4
    
32. name1        dis2:6-12       5
    
33. name2        dis2:7-14       2
    
34. name2        dis2:14-15     3
    
35. name1        dis2:17-19     4
    
36. name2        dis2:20-22     1
    
37. name2        dis2:21-25     6

复制代码

newfinder

回复 35# yestreenstars

大神，请接受我的膜拜！！！

清泉一边

以前一个大神写的：
open (FILE1,"C:/Users/lenovo/Desktop/1.txt");
open (FILE2,"C:/Users/lenovo/Desktop/2.txt");
open (OUT,">C:/Users/lenovo/Desktop/3.txt");

my %hash_group;
map {
        chomp;
        my ($key,$start,$end) = split;
        push @{$hash_group{$key}},($start..$end)
}<FILE2>;
while (<FILE1>) {
        chomp;
        my ($key,$start,$end) = split;
        my %uniq;
        @uniq{@{$hash_group{$key}}}=@{$hash_group{$key}};
        my @data =sort {$a <=> $b} grep {!$uniq{$_}}($start..$end);
        my @zone;
        map {
                my $n = $_;
                $n == 0 && push @zone,$data[$n];
                $n+1<=$#data && $data[$n+1]-$data[$n]>1 && push @zone,($data[$n],$data[$n+1]);
                $n==$#data && push @zone,$data[-1];
        }0..$#data;
        for (1..($#zone+1)) {
                $_%2
                        ? print OUT "$key\t$zone[$_-1]\t"
                        : print OUT "$zone[$_-1]\n";
        }
}

清泉一边

又写了一个~
#!/usr/bin/perl -w
use strict;
my $first = <DATA>;
print $first;
my %hash;
while (<DATA>){
chomp;
my ($k,$v) = split /\:/;
my ($start,$end) = split /-/,$v;
push @{$hash{$k}},[$start,$end];
}
foreach my $k (keys %hash){
my @sort = sort {$a->[0] <=> $b->[0] || $a->[1] <=> $b->[1]}@{$hash{$k}};
my $f = $sort[0];
my $s = $$f[0];
my $e = $$f[1];
         for my $h (@sort){
                if ($e < $$h[0]){
                  print "$k".":"."$s"."-"."$e"."\n";
                  $s = $$h[0];
                  $e = $$h[1];
                  }
                  else {$e = $$h[1];}
         }
print "$k".":"."$s"."-"."$e"."\n";
}回复 1# newfinder


   

newfinder

回复 38# 清泉一边
多谢了！！受教，我也要像你这样啊

   

xiuwosuoai

大神，我想请教一个问题，如果变成了下面这样，如第二行出现了这种情况，用该方法会得到结果就成了dis1:1-4;该怎么改呢？
Name         distance
name1        dis1:1-5
name1        dis1:2-4
name1        dis1:7-9
name1        dis1:10-12
name1        dis1:11-14
name2        dis2:5-8
name2        dis2:6-12
name2        dis2:7-14
name2        dis2:14-15
name2        dis2:17-19
name2        dis2:20-22
name2        dis2:21-25