一键多值hash的使用？

MMMIX

原帖由 小渔村 于 2009-7-10 13:54 发表



Hashes of Arrays (Programming Perl)  ....

Programming Perl 里面不论什么东西都值得效仿？

小渔村

原帖由 MMMIX 于 2009-7-10 14:32 发表

Programming Perl 里面不论什么东西都值得效仿？

小弟不是这个意思哈，
我看书看的比较少，所以懂的也比较少。
目前真不知道如果来更加有效的取 二维hash的值了。。。
还望大大们指教
谢谢

cobrawgl

#!/usr/bin/perl use strict; use warnings; my @list = (...); my %hash = (     'ttt' => ["server_1",....."server_n","/tmp/"],     'qq'  => ["server_1",....."server_n","/home/"],     'llp' => ["server_1",....."server_n","/home/"], ); for my $k (keys %hash) {     if (grep $k, @list) {         my $dir = pop @{$hash{$k}};         map {system('scp file ' . $_ . ':' . $dir)} @{$hash{$k}};     } }

--------------------------------------
没运行过，不知道能不能用，仅供参考。

[ 本帖最后由 cobrawgl 于 2009-7-11 08:26 编辑 ]

MMMIX

原帖由 小渔村 于 2009-7-10 22:12 发表



小弟不是这个意思哈，
我看书看的比较少，所以懂的也比较少。
目前真不知道如果来更加有效的取 二维hash的值了。。。

老实说，我觉得你的数据结构设计的有问题，server list 和其对应的目录应该放在不同的地方，而不是放在同一个数组中，例如可以用
%hash = (
  task1 => { servers => [ server_1, server_2, ...], dir => '/tmp' },
  ...
)

或者

%hash = (
  task1 => [ [server_1, server_2, ...] '/tmp' ],
  ...
)

这两个哪个处理起来都比你那个要方便，也更清晰。

小渔村

原帖由 MMMIX 于 2009-7-11 09:48 发表

老实说，我觉得你的数据结构设计的有问题，server list 和其对应的目录应该放在不同的地方，而不是放在同一个数组中，例如可以用
%hash = (
  task1 => { servers => [ server_1, server_2, ...], dir => ' ...

恩谢谢