文本處理，取最大值和最小值

mcshell

1. use strict;
   
2. use warnings;
   
3. my $h;
   
4. map { /(\d+\s+\d+)\s+(\d+)(?{push @{$h->{$1}},$2})/ } <DATA>;
   
5. map {
   
6.     my ( $min, $max ) = ( sort @{ $h->{$_} } )[ 0, -1 ];
   
7.     my $sc = scalar @{ $h->{$_} };
   
8.     print "$_\t";
   
9.     $sc == 1 ? print "1\t@{$h->{$_}}\n" : print "$sc\t$min\t$max\n"
   
10. } keys $h;
    
11. __DATA__
    
12. 111        16644211        348795021
    
13. 111        16644211        348795368
    
14. 111        16644211        348797001
    
15. 111        16644211        348797826
    
16. 111        22443489        348795333
    
17. 111        67384560        348795445
    
18. 111        67384560        348795879

復(fù)制代碼

飛越地平線

回復(fù) 11# mcshell

大牛都很厲害�。�！
不過(guò)我還是覺(jué)得看著你這個(gè)代碼比較舒服‘易懂’啊。


   

kernel69

1. [root@RHEL6 tmp]# cat a.pl
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. my $h;
   
7. 
   
8. map { /(\d+\s+\d+)\s+(\d+)(?{push @{$h->{$1}},$2})/ } <DATA>;
   
9. map {
   
10.     my ( $min, $max ) = ( sort @{ $h->{$_} } )[ 0, -1 ];
    
11.     my $sc = scalar @{ $h->{$_} };
    
12.     print "$_\t";
    
13.     $sc == 1 ? print "1\t@{$h->{$_}}\n" : print "$sc\t$min\t$max\n"
    
14. } keys $h;
    
15. __DATA__
    
16. 111        16644211        348795021
    
17. 111        16644211        348795368
    
18. 111        16644211        348797001
    
19. 111        16644211        348797826
    
20. 111        22443489        348795333
    
21. 111        67384560        348795445
    
22. 111        67384560        348795879
    
23. [root@RHEL6 tmp]# ./a.pl
    
24. Type of arg 1 to keys must be hash (not private variable) at ./a.pl line 13, near "$h;"
    
25. Execution of ./a.pl aborted due to compilation errors.
    
26. [root@RHEL6 tmp]# vi a.pl
    
27. [root@RHEL6 tmp]#

復(fù)制代碼

代碼好像有問(wèn)題呀，大牛
回復(fù) 11# mcshell


   

mcshell

回復(fù) 13# kernel69

1. keys $h;
   
2. 
   
3. 改成
   
4. keys %$h;
   
5. 
   
6. 
   

復(fù)制代碼

版本問(wèn)題{:3_186:}


   

rubyish

這是嗎？

1. #!/usr/bin/perl -w
   
2. # use 5.018;
   
3. my %h;
   
4. map /^(.*?)(\d+)$/ && $h{$1}{$2}++, <DATA>;
   
5. 
   
6. print map {
   
7.     my @A = sort { $a <=> $b } keys %{ $h{$_} };
   
8.     join( "\t", $_ . @A, shift @A, pop @A // () ) . $/;
   
9. } sort keys %h;
   
10. 
    
11. __DATA__
    
12. 111        16644211        348795021
    
13. 111        16644211        348795368
    
14. 111        16644211        348797001
    
15. 111        16644211        348797826
    
16. 111        22443489        348795333
    
17. 111        67384560        348795445
    
18. 111        67384560        348795879

復(fù)制代碼

rubyish

D  E  L  ~

kernel69

1. [root@RHEL6 tmp]# cat a.pl
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. my %h;
   
7. my $h;
   
8. 
   
9. map { /(\d+\s+\d+)\s+(\d+)(?{push @{$h->{$1}},$2})/ } <DATA>;
   
10. map {
    
11.     my ( $min, $max ) = ( sort @{ $h->{$_} } )[ 0, -1 ];
    
12.     my $sc = scalar @{ $h->{$_} };
    
13.     print "$_\t";
    
14.     $sc == 1 ? print "1\t@{$h->{$_}}\n" : print "$sc\t$min\t$max\n"
    
15. } keys %h;
    
16. __DATA__
    
17. 111        16644211        348795021
    
18. 111        16644211        348795368
    
19. 111        16644211        348797001
    
20. 111        16644211        348797826
    
21. 111        22443489        348795333
    
22. 111        67384560        348795445
    
23. 111        67384560        348795879

復(fù)制代碼

沒(méi)有輸出汗
回復(fù) 14# mcshell


   

kernel69

短小精悍 學(xué)習(xí)了

回復(fù) 15# rubyish