求文本处理

rubyish

不是只能5.16啊:

1. #!perl -l
   
2. 
   
3. my ( %h, @a );
   
4. while (<DATA>) {
   
5.     my ( $a, @b ) = split /,|\n/;
   
6.     push @a, $a unless $h{$a};
   
7.     push @{ $h{$a} }, \@b;
   
8. }
   
9. 
   
10. for my $k (@a) {
    
11.     my ( $i, $j ) = @{ $h{$k} };
    
12.     my ($z) = sort { $b <=> $a } map $#$_, $i, $j;
    
13.     print join ',', $k, map {
    
14.         @_ = grep $_, @$i[$_], @$j[$_];
    
15.         @_ > 1 && ( $_[0] eq $_[1] ) ? ('--', '--') : @_
    
16.     } 0 .. $z;
    
17. }
    
18. 
    
19. __DATA__
    
20. a,1,2,e,2
    
21. b,q
    
22. a,9,2

复制代码

perlnewbie

回复 11# rubyish


      在电脑上跑了一下,可以的.非常谢谢哪