一键多值hash的使用？

ulmer

tips:

1. 
   
2. my %hash = (
   
3.     'ttt' => ["server_1", "server_n", "/tmp/"],       # ref. array as value
   
4.     'qq'=>["server_1", "server_n", "/home/"],
   
5.      'llp' =>["server_1", "server_n", "/home/"]
   
6. );
   
7. 
   
8. my @list = ('foo', 'bar', 'qq');
   
9. 
   
10. foreach (@list) {
    
11.      # check element wether is key from hash or not
    
12.     if (exists $hash{$_}) {
    
13.         # we have got it and run string scp
    
14.         print "1st elem = ", $hash{$_}->[0], " 2nd elem = ", $hash{$_}->[1], "\n";
    
15.     }
    
16. }
    
17. 
    

复制代码

[ 本帖最后由 ulmer 于 2009-7-9 21:16 编辑 ]