perl 行去重保留规定条件行

RE_HASH

回完才发现是个很老的帖子。

j_cle

回复 6# 清泉一边


    my ($num) = $all[3] =~ /\s(\S+)\s/;
这个跟
my $num = $all[3] =~ /\s(\S+)\s/;
有什么大的区别么， 小括号不是用来声明多个变量么， 怎么这里如果不带小括号的话，$num值都是1， 学习一下

j_cle

回复 6# 清泉一边


    学习了这种解题思路，谢谢

thanatos0

my %hash_tmp;
while(<DATA>){
  chomp;
  my $third=(split)[2];
  my $fourth=(split)[4];
  if( ! $hash_tmp{$third} || $hash_tmp{$third}>$fourth){
  delete ($hash_tmp{$third});
  $hash_tmp{$third}{$fourth}=$_;
  }
}

foreach (sort {$a<=>$b} keys %hash_tmp){
     my $hash_out=$hash_tmp{$_};  
     foreach (keys %$hash_out){
     print "$hash_out->{$_}\n";
    }
}  
__DATA__
326        0.00        0.00        ( 0 )
63        0.00        2.43        ( 0.0082 )
64        0.00        2.43        ( 0.0082 )
120        0.00        2.43        ( 0 )
340        0.00        4.03        ( 0 )
99        0.00        9.14        ( 0.0229 )
441        0.00        9.14        ( 0.0232 )
142        0.00        10.77        ( 0.0569 )
292        0.00        10.77        ( 0.0393 )
266        0.00        10.77        ( 0.0233 )

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my (%hData);
   
6. while (<>){
   
7.     my @aList = m/\d+(?:\.\d+)?/g;
   
8.     if (!%hData){
   
9.         $hData{$aList[2]} = [@aList];
   
10.         next;
    
11.     }
    
12.     if (exists $hData{$aList[2]} and $hData{$aList[2]}->[0] < $aList[0]){
    
13.         $hData{$aList[2]} = [@aList];
    
14.         next;
    
15.     }
    
16.     $hData{$aList[2]} = [@aList];
    
17. }
    
18. 
    
19. local $" = "\t";
    
20. foreach (sort {$a <=> $b} keys %hData){
    
21.     print "@{$hData{$_}}[0 .. 2]", "( $hData{$_}->[-1] )\n";
    
22. }
    

复制代码