如何进行重叠合并

sunzhiguolu

回复 40# xiuwosuoai
试下:

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my (%h_dat, $last_name);
   
5. my $reg_distance = "(?<pre>[^:]+:)(?<n1>[0-9]+)-(?<n2>[0-9]+)";
   
6. while (<>){
   
7.    chomp;
   
8.    my ($name, $distance) = split;
   
9.    unless (exists $h_dat{$name}){
   
10.       print "$last_name $h_dat{$last_name}\n" if (defined $last_name);
    
11.       $h_dat{$name} = $distance;
    
12.    }else{
    
13.       my ($n1, $n2) = ($+{n1}, $+{n2}) if ($distance =~ m{\A$reg_distance\z});
    
14.       my $_distance = $h_dat{$name};
    
15.       my ($_n1, $_n2) = ($+{n1}, $+{n2}) if ($_distance =~ m{\A$reg_distance\z});
    
16.       if ($n1 >= $_n1 and $n1<= $_n2){
    
17.          $h_dat{$name} = $+{pre} . $_n1 . '-' . ($n2 > $_n2 ? $n2 : $_n2);
    
18.          $last_name = $name;
    
19.          print "$last_name $h_dat{$last_name}\n" if (eof);
    
20.       }else{
    
21.          print "$last_name $h_dat{$last_name}\n";
    
22.          delete $h_dat{$last_name};
    
23.          $h_dat{$name} = $distance;
    
24.       }
    
25.    }
    
26. }
    

复制代码

1. 
   
2. perl abc.pl a.txt
   

复制代码

不足的地方:代码不能对乱序的记录行进行处理.
如果希望进行乱序处理, 可以一次性将满足条件的行记录全部加载到哈希中, 最后再进行打印输出.

请大家给我解惑的地方, 如下:

此代码文件在处理最后一条满足条件的行记录时使用了 eof 函数, 我感觉比较生硬.
如何进行修改程序逻辑, 使得代码判断逻辑更加自然, 顺畅还请大家给予指点.
在此先谢谢大家的帮助及支持...

sunzhiguolu

我没有将我的问题开一个新帖, 希望大家谅解. 只是在解决这个问题时发现代码中存在问题特此向大家求助, 希望大家给予帮助及支持... 谢谢大家了...

sunzhiguolu

回复 40# xiuwosuoai
我把代码修改了下, 再试下: (测试环境:Windows 7)

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. my ($reg_distance, $cache) = ("(?<pre>[^:]+:)(?<n1>[0-9]+)-(?<n2>[0-9]+)");
   
6. while (<>){
   
7.     s/\s*\z//;
   
8.     my ($name, $distance) = split;
   
9.     $cache = $name . ' ' . $distance unless $cache;
   
10.     if (index ($cache, $name) >= 0){
    
11.         my ($n1, $n2) = ($+{n1}, $+{n2}) if ($distance =~ m{\A$reg_distance\z});
    
12.         my @a_elements = split / /, $cache;
    
13.         my ($_n1, $_n2) = ($+{n1}, $+{n2}) if ($a_elements[-1] =~ m{\A$reg_distance\z});
    
14.         if ($n1 >= $_n1 and $n1 <= $_n2){
    
15.             $cache = $a_elements[0] . ' ' . $+{pre} . $_n1 . '-' . ($n2 > $_n2 ? $n2 : $_n2);
    
16.         }else{
    
17.             print "$cache\n";
    
18.             $cache = $name . ' ' . $distance;
    
19.         }
    
20.     }else{
    
21.         print "$cache\n";
    
22.         $cache = $name . ' ' . $distance;
    
23.     }
    
24.     print "$cache\n" if (eof);
    
25. }
    

复制代码

1. perl abc.pl a.txt

复制代码

sunzhiguolu

我在代码中依然使用 eof 函数判断文件结尾的方式来打印最后一条满足条件的行记录, 如果大家有什么好的方法还请大家给予帮助及支持...
在此先谢过大家了...

xiuwosuoai

谢谢你的回答，不过测试的时候没有打印出结果，我也不晓得是哪儿的问题。。


   

sunzhiguolu

回复 45# xiuwosuoai
能否具体说下...
是我的哪个回复 (1 | 2)?

1.> 在 red hat 上使用 Perl 5.010 版, 测试应该没有问题;
2.> 是刚才我在 Windows 7 操作系统上 ActivePerl 5.20.1 版下编写的, 测试应该没有问题;

如果在使用脚本中遇到了问题, 请将问题的详细信息告诉我, 我好可以进一步帮您分析下问题出在了哪里...

   

xiuwosuoai

哦，是第一个的，不过我测试了一下第二个，发现得到的结果和原来一样。。



   

sunzhiguolu

回复 47# xiuwosuoai
1.> 测试环境是什么 (Linux | Windows)?
2.> 如何执行的? (perl abc.pl a.txt | ./abc.pl a.txt)
3.> 执行后的结果有什么输出么?
4.> a.txt 文件中的行标头是否去掉? (name distance)

   

xiuwosuoai

Linux上，perl abc.pl a.txt ，结果没有合并，去掉了。。。

sunzhiguolu

请将文件的执行结果贴出来, 即使我不能为您解决这个问题相信大家也能帮助到您.
请给出多一点的信息, 总是用 (去掉了 ... | 发现得到的结果和原来一样 ...) 别人很难理解.

另外, 您要的是什么样的结果? 是希望解决这个问题吗:

大神，我想请教一个问题，如果变成了下面这样，如第二行出现了这种情况，用该方法会得到结果就成了dis1:1-4;该怎么改呢？
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