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

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

复制代码

飞越地平线

回复 11# mcshell

大牛都很厉害！！！
不过我还是觉得看着你这个代码比较舒服‘易懂’啊。


   

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]#

复制代码

代码好像有问题呀，大牛
回复 11# mcshell


   

mcshell

回复 13# kernel69

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

复制代码

版本问题{: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

复制代码

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

复制代码

没有输出汗
回复 14# mcshell


   

kernel69

短小精悍 学习了

回复 15# rubyish