perl hash实现文件内容合并

jason680

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

815138698

回复 1# 小鬼啊不


    如果只是解决题目，按照name列来写简单点，
   LZ的本意应该是按照start end列的关系来解决
   按照name列规则写个，嘎嘎~~~

#!/usr/bin/perl -w

my %hash;
while(<DATA>){
        chomp;
        my ($number,$start,$end,$name)=split;
        if(!exists $hash{$number}{$name} ){
                $hash{$number}{$name}=[$start,$end];
        }
        else{
                $start<$hash{$number}{$name}[0] ? $hash{$number}{$name}[0]=$start:0;
                $end>$hash{$number}{$name}[1] ? $hash{$number}{$name}[1]=$end:0;
        }
}

print "Number      start     end        name \n";

foreach $number(sort {$a cmp $b} (keys %hash)){
        foreach $name(sort {$hash{$number}{$a}[0] <=> $hash{$number}{$b}[0]} (keys $hash{$number})){
                printf "%s%10s%10s%10s\n",$number,$hash{$number}{$name}[0],$hash{$number}{$name}[1],$name;
        }
}



__DATA__
NO.1          1       10          wf
NO.1          11      22          wf
NO.1          29      38          cz
NO.1          39      51          cz
NO.1          52      60          cz
NO.2          2       9           gx
NO.2          10      22          gx
NO.2          23      40          gx



   

ba_du_co

类似于这样

1. use 5.010;
   
2. say join "\t", split /\s+/, <DATA>;
   
3. my @data = split /\s+/, <DATA>;
   
4. 
   
5. while (<DATA>) {
   
6.     my @nusten = split;
   
7.     $data[2] = $nusten[2], next if $nusten[-1] eq $data[-1];
   
8.     say join "\t", @data;
   
9.     @data = @nusten;
   
10. }
    
11. 
    
12. say join "\t", @data;
    
13. 
    
14. __DATA__
    
15. Number       start    end         name
    
16. NO.1          1       10          wf
    
17. NO.1          11      22          wf
    
18. NO.1          29      38          cz
    
19. NO.1          39      51          cz
    
20. NO.1          52      60          cz
    
21. NO.2          2       9           gx
    
22. NO.2          10      22          gx
    
23. NO.2          23      40          gx
    

复制代码

kggg

回复 4# ba_du_co

这一句怎么理解
$data[2] = $nusten[2], next if $nusten[-1] eq $data[-1];

中间的逗号有什么作用？


   

MMMIX

kggg 发表于 2015-09-10 15:28
回复 4# ba_du_co
$data[2] = $nusten[2], next if $nusten[-1] eq $data[-1];

等价于

if ($nusten[-1] eq $data[-1]) {
    $data[2] = $nusten[2];
    next;
}

kggg

回复 6# MMMIX

谢谢， 很少这样用。


   

MMMIX

回复 7# kggg


    最好永远都别那么用。

kggg

回复 8# MMMIX

修改一下， 当数字不是按顺序由小到大时。

#!/usr/bin/perl

use 5.010;
say join "\t", split /\s+/, <DATA>;
my @data = split /\s+/, <DATA>;

while (<DATA>) {
    my @nusten = split;
    if($nusten[-1] eq $data[-1]){
         if( $nusten[1] < $data[1]){
              $data[1] = $nusten[1];
         }
         if( $nusten[2] > $data[2]){
              $data[2] = $nusten[2];
         }
         next;
    }
    say join "\t", @data;
    @data = @nusten;
}

say join "\t", @data;

__DATA__
Number       start    end         name
NO.1          1       10          wf
NO.1          11      22          wf
NO.1          29      38          cz
NO.1          39      51          cz
NO.1          52      60          cz
NO.2          2       9           gx
NO.2          10      22          gx
NO.2          23      40          gx
NO.2          23      90          gx
NO.2          23      40          cx
NO.2          23      30          cx





   

鉩中心思想

看不懂～～～～～～·