小白请教各位大大一个哈希的问题

zero_BX

自己解决啦，很简单

sunzhiguolu

不一定是你需要的，

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $k = my %hash = ();
   
7. while(<DATA>){
   
8.         s/\s*\z//;
   
9.         if(/\A(%\S+)/){
   
10.                 $k = $1;
    
11.                 next;
    
12.         }
    
13.         $hash{$k} .= $_;
    
14. }
    
15. 
    
16. print(Dumper(\%hash));
    
17. 
    
18. __DATA__
    
19. %Date01
    
20. Import
    
21. A
    
22. bug
    
23. %Date02 note
    
24. Nothing
    
25. %Date03
    
26. ZZZZZ
    
27. ZZ
    

复制代码

flw

1. $ cat 1.txt
   
2. %Date01
   
3. Import
   
4. A
   
5. bug
   
6. %Date02 note
   
7. Nothing
   
8. %Date03
   
9. ZZZZZ
   
10. ZZ
    
11. 
    
12. $ perl -lane '$k = $1 and next if $F[0] =~ /^%(Date\d+)/; $h{$k} .= $_ if $k; END{ printf "%s %s\n", $_, $h{$_} foreach sort keys %h }' 1.txt
    
13. Date01 ImportAbug
    
14. Date02 Nothing
    
15. Date03 ZZZZZZZ

复制代码