perl 行去重保留規(guī)定條件行

Li_0817

求助：如下數(shù)據(jù)，想去掉第3列重復(fù)的行且保留的行要使第四列最小
原始數(shù)據(jù)：
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 )
想要的結(jié)果：
326        0.00        0.00        ( 0 )
120        0.00        2.43        ( 0 )
340        0.00        4.03        ( 0 )
99        0.00        9.14        ( 0.0229 )
266        0.00        10.77        ( 0.0233 )

substr函數(shù)

perl uniq.pl yourfile > uniq

uniq.pl
我這么寫了

1. #!/usr/bin/perl
   
2. 
   
3. my %DATA;
   
4. 
   
5. while (<>) {
   
6.     my ( $C3, $C4 ) = /^\S+\s+\S+\s+(\S+)\s+\(\s*(\S+)/;
   
7.     if ( exists $DATA{$C3} ) {
   
8.         $DATA{$C3} = [ $C4, $., $_ ] if $DATA{$C3}[0] > $C4;
   
9.     }
   
10.     else {
    
11.         $DATA{$C3} = [ $C4, $., $_ ];
    
12.     }
    
13. }
    
14. 
    
15. my @LINES = map { $_->[2] } sort { $a->[1] <=> $b->[1] } values %DATA;
    
16. 
    
17. print @LINES;
    
18. 
    

復(fù)制代碼

xiaoxingan99

不太懂hash
寫了一個還沒達(dá)到要求的，先準(zhǔn)備下班
use strict;
open(A, "e:/perl/A.txt");
my %h;
my @a=<A>;
foreach (@a)
{
        $_=~s/(.*?)\((.*?)\)/$1$2/;
#        print;
        }
foreach (@a)

{my @b=split/\s+/;
        (my $key,my $value)=($b[2],$b[3]);
        $h{$key}=$value;

foreach (sort {$h{$a}<=>$h{$b}} keys %h)
{
        print "$_->$h{$_}\n";
        }

Li_0817

回復(fù) 2# substr函數(shù)
牛掰

   

Li_0817

$DATA{$C3} = [ $C4, $., $_ ] if $DATA{$C3}[0] > $C4;
中括號里是什么意思

清泉一邊

1. #!/usr/bin/perl  -w
   
2. use strict;
   
3. my %hash;
   
4. while (<DATA>){
   
5. my @all = split /\s\s+/,$_;
   
6. my ($num) = $all[3] =~ /\s(\S+)\s/;
   
7. $hash{$all[2]}{$num}{$_} = 1;
   
8. }
   
9. foreach my $same (sort keys %hash){
   
10. my @num = keys  %{$hash{$same}};
    
11. my $f = shift @num;
    
12. for (@num){
    
13.   $f = $_ if ($f > $_);
    
14. }
    
15. my @line = keys %{$hash{$same}{$f}};
    
16. print @line;
    
17. }
    
18. 
    
19. __DATA__
    
20. 326        0.00        0.00        ( 0 )
    
21. 63        0.00        2.43        ( 0.0082 )
    
22. 64        0.00        2.43        ( 0.0082 )
    
23. 120        0.00        2.43        ( 0 )
    
24. 340        0.00        4.03        ( 0 )
    
25. 99        0.00        9.14        ( 0.0229 )
    
26. 441        0.00        9.14        ( 0.0232 )
    
27. 142        0.00        10.77        ( 0.0569 )
    
28. 292        0.00        10.77        ( 0.0393 )
    
29. 266        0.00        10.77        ( 0.0233 )

復(fù)制代碼

回復(fù) 1# Li_0817


   

rubyish

1. #!/usr/bin/perl
   
2. my $c = '\(^oo^)/';
   
3. 
   
4. print
   
5.   map  { $c eq $_->[0] ? () : do { $c = $_->[0]; $_->[2] } }
   
6.   sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] }
   
7.   map  { [ (split)[ 2, 4 ], $_ ] } <DATA>
   
8. 
   
9. __DATA__
   
10. 326        0.00        0.00        ( 0 )
    
11. 63        0.00        2.43        ( 0.0082 )
    
12. 64        0.00        2.43        ( 0.0082 )
    
13. 120        0.00        2.43        ( 0 )
    
14. 340        0.00        4.03        ( 0 )
    
15. 99        0.00        9.14        ( 0.0229 )
    
16. 441        0.00        9.14        ( 0.0232 )
    
17. 142        0.00        10.77        ( 0.0569 )
    
18. 292        0.00        10.77        ( 0.0393 )
    
19. 266        0.00        10.77        ( 0.0233 )
    

復(fù)制代碼

815138698

++
貌似跟2樓一樣了



#!/usr/bin/perl -w
use strict;

my %hash;
while(<DATA>){
        chomp;
        my ($a,$b,$key,$value)=/\s*(\d\S+)\s+(\d\S+)\s+(\d\S+)\s+\((.*)\)/;
        if ( $hash{$key}){
         $hash{$key}=[$a,$b,$value] if ($value < $hash{$key}->[2]) ;
        }
        else {
                $hash{$key}=[$a,$b,$value];
        }
}
printf "%s\t%s\t%s\t(%s) \n",$hash{$_}->[0],$hash{$_}->[1],$_,$hash{$_}->[2]  foreach(sort {$a <=> $b} (keys %hash));

__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)

南宮慕容007

樓上的大神們寫的時候能不能稍微加點注釋，小白表示看著好吃力

RE_HASH

$> cat  bbb|perl -00pne '1  while (s/(.+ ([.\d]+) +\( *(.+) *\) *)\n(.+\2 *\( *(.+) *\) *)/$3 < $5? $1: $4/ge)'

326        0.00        0.00        ( 0 )
120        0.00        2.43        ( 0 )
340        0.00        4.03        ( 0 )
99        0.00        9.14        ( 0.0229 )
266        0.00        10.77        ( 0.0233 )