一键多值hash的使用？

小渔村

1. 
   
2. my %hash = (
   
3.                        'ttt',["server_1",....."server_n","/tmp/"],
   
4.                        'qq',["server_1",....."server_n","/home/"],
   
5.                        'llp',["server_1",....."server_n","/home/"]
   
6. )
   
7. 
   
8. foreach (@list) {
   
9.               foreach $key (keys %hash) {
   
10.                             if ( $key == $_ ) {
    
11.                                 scp file $hash{$key}[0]:$hash{$key}[-1];
    
12.                                 ...................
    
13.                                 scp file $hash{$key}[-2]:$hash{$key}[-1];
    

复制代码

想要实现的功能就是，如果数组里面的元素对应上了hash key，
那么就将一个文件传到该key所对应的所有服务器下的特点的文件夹下。
这里能不能写个循环，因为server的数量不固定。
小弟刚学习perl
大大们有什么好方法？

MMMIX

你那个 %hash 的值就是一个到数组的引用，了解下 reference 的用法吧
perldoc perlreftut
perldoc perlref

[ 本帖最后由 MMMIX 于 2009-7-9 19:50 编辑 ]

Perl_Er

当然可以写个循环。
查看Programming perl的 9.3. Arrays of Hashes

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 编辑 ]

小渔村

原帖由 ulmer 于 2009-7-9 21:15 发表
tips:

foreach (@list) {
     # check element wether is key from hash or not
    if (exists $hash{$_}) {
        # we have got it and run string scp
        print "1st elem = ", $hash{$_}->[0], " 2nd elem = ", $hash{$_}->[1], "\n";
    }
}
...

哈。。但是server的数量不固定，该怎么解决呢

小渔村

谢谢LS几位大大们的建议

cheese_lee

还提醒一下LZ，比较字符串相等应该用 eq

Perl_Er

原帖由 小渔村 于 2009-7-9 21:57 发表


哈。。但是server的数量不固定，该怎么解决呢

参考下面的.
for $family ( keys %HoA ) {
    print "$family: ";
    for $i ( 0 .. $#{ $HoA{$family} } ) {
        print " $i = $HoA{$family}[$i]";
    }
    print "\n";
}

MMMIX

原帖由 Perl_Er 于 2009-7-10 07:29 发表

参考下面的.
for $family ( keys %HoA ) {
    print "$family: ";
    for $i ( 0 .. $#{ $HoA{$family} } ) {
        print " $i = $HoA{$family}[$i]";
    }
    print "\n";
}

这个就是把 Perl 当 C 使，不参考也罢。

小渔村

原帖由 MMMIX 于 2009-7-10 09:16 发表

这个就是把 Perl 当 C 使，不参考也罢。

Hashes of Arrays (Programming Perl)  ....