分享一个遍历Hash的例子

Perl_Er

1. jzhu@jzhu-HP-Z400-Workstation:~/my-perl-scripts/chinaunix$ cat ../algorithm/traverse_hash.pl
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use v5.10;
   
6. 
   
7. my %people = (
   
8.     memowe => {
   
9.         NAMES => {
   
10.             memo => { AGE => 666 },
    
11.             we   => { AGE => 667 },
    
12.         },
    
13.     },
    
14.     bladepanthera => {
    
15.         NAMES => {
    
16.             blade    => { AGE => 42 },
    
17.             panthera => { AGE => { Fuck => "you" } },
    
18.         },
    
19.     },
    
20. );
    
21. 
    
22. sub traverse (&$@) {
    
23.     my ( $do_it, $data, @path ) = @_;
    
24. 
    
25.     # iterate
    
26.     foreach my $key ( sort keys %$data ) {
    
27. 
    
28.         # handle sub-tree
    
29.         if ( ref( $data->{$key} ) eq 'HASH' ) {
    
30.             &traverse( $do_it, $data->{$key}, @path, $key );
    
31.             next;
    
32.         }
    
33. 
    
34.         # handle leave
    
35.         $do_it->( $data->{$key}, @path, $key );
    
36.     }
    
37. }
    
38. 
    
39. traverse { say shift . " (@_)" } \%people;
    
40. jzhu@jzhu-HP-Z400-Workstation:~/my-perl-scripts/chinaunix$ perl ../algorithm/traverse_hash.pl
    
41. 42 (bladepanthera NAMES blade AGE)
    
42. you (bladepanthera NAMES panthera AGE Fuck)
    
43. 666 (memowe NAMES memo AGE)
    
44. 667 (memowe NAMES we AGE)
    

复制代码

huang6894

先mark再看~

inchonline

22行的：sub traverse (&$@) {
函数里的&$@啥意思啊？
回复 1# Perl_Er


   

Perl_Er

回复 3# inchonline


    定义函数原型的, man perlsub找prototype