文件怎么读入hash

609854

大神，帮忙看下整个文件怎么读进hash。

DATA:

1. [NAME]
   
2. TOM
   
3. 
   
4. [AGE]
   
5. 23
   
6. 
   
7. [TALL]
   
8. 180CM
   
9. 
   
10. [favorite person]
    
11. Lily
    
12. Jimmy
    
13. 
    

复制代码

一个一个的读我用的是：

1. while(<DATA>){
   
2.     my $match_key = shift;
   
3.     if (m/$match_key/ig..m/\[.*\]/ig){
   
4.            print;
   
5.     }
   
6. }

复制代码

pitonas

1. my ( $value, @hash ) = 1;
   
2. while (<DATA>) {
   
3.     next if /^\s*$/;
   
4.     if (/\[(.*)\]/) {
   
5.         push @hash, $value == 0 ? ( '', $1 ) : $1;
   
6.         $value = 0;
   
7.     }
   
8.     elsif ($value) {
   
9.         chomp;
   
10.         ref $hash[-1]
    
11.           ? push @{ $hash[-1] }, $_
    
12.           : ( $hash[-1] = [ $hash[-1], $_ ] );
    
13.     }
    
14.     else {
    
15.         chomp;
    
16.         push @hash, $_ and $value++;
    
17.     }
    
18. }
    
19. my %hash = @hash;
    
20. 
    
21. print $hash{NAME};
    
22. 
    
23. __DATA__
    
24. [NAME]
    
25. TOM
    
26. 
    
27. [AGE]
    
28. 23
    
29. 
    
30. [TALL]
    
31. 180CM
    
32. 
    
33. [favorite person]
    
34. Lily
    
35. Jimmy
    
36. 
    
37. [NO Value]
    
38. 
    
39. [LAN]
    
40. perl

复制代码

回复 1# 609854


   

mcshell

回复 1# 609854

1. my $h;
   
2. while(<DATA>){
   
3.     next if /^\s*$/;
   
4.     /[[]([^]]+)/?$h->{$1}=():push @{$h->{$1}},$_;
   
5. }
   
6. print "$_=>",@{$h->{$_}},"\n" for keys $h;
   
7. 
   
8. __DATA__
   
9. [NAME]
   
10. TOM
    
11. 
    
12. [AGE]
    
13. 23
    
14. 
    
15. [TALL]
    
16. 180CM
    
17. 
    
18. [favorite person]
    
19. Lily
    
20. Jimmy
    
21. 
    
22. [NO Value]
    
23. 
    
24. [LAN]
    
25. perl

复制代码

609854

回复 2# pitonas


    ref $hash[-1]
          ? push @{ $hash[-1] }, $_
          : ( $hash[-1] = [ $hash[-1], $_ ] );

这个是什么意思。

rubyish

回复 3# mcshell

1.     /[[]([^]]+)/?$h->{$1}=():push @{$h->{$1}},$_;

复制代码

   

   

mcshell

{:3_190:} {:3_190:} 回复 5# rubyish