求助：perl hash中多元键和值的问题

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my %hash;
   
6. my $title;
   
7. while(<DATA>){
   
8.     if(/(\w+\s+(?:\+|-))\s+(\d+)\s+(\d+)/){
   
9.         push @{$hash{$1}},$2,$3;
   
10.     }else{
    
11.         $title = $_;
    
12.     }
    
13. }
    
14. map{print "$_\t";print join("\t",sort{$a cmp $b}@{$hash{$_}});print "\n"}sort keys %hash;
    
15. 
    
16. __DATA__
    
17. name     direction     start      end
    
18. a1           +               4           5
    
19. a1           +               1           3
    
20. a1           -                2           4
    
21. a1           -                5           6
    
22. a2           +               3           7
    
23. a2           -                1           5

复制代码

mcshell

回复 14# 小猪Gina
那更简单一些。。。。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my %hash;
   
6. my $title;
   
7. while(<DATA>){
   
8.     if(/(\w+\s+(?:\+|-))\s+(\d+\s+\d+)/){
   
9.         push @{$hash{$1}},$2;
   
10.     }else{
    
11.         $title = $_;
    
12.     }
    
13. }
    
14. map{print "$_\t";print join("\t",sort{$a cmp $b}@{$hash{$_}});print "\n"}sort keys %hash;
    
15. 
    
16. __DATA__
    
17. a1           +               1           3
    
18. a1           +               6           8
    
19. a1           -               2           4
    
20. a1           -               5           6
    
21. a1           -               3           5
    
22. a1           -               7           8
    
23. a2           +               3           7
    
24. a2           -               1           5
    
25. a2           +               4           6
    
26. a2           -               7           9
    
27. a1           +               4           5
    
28. a1           +               2           5
    

复制代码