还是哈希的问题

BosCourage

我在循环里动态产生一个数组，并且想在循环里把这些数组结果都放在一个哈希里，
其中的Key也是动态产生的（arr1 arr2 ……）
大体如下：
while
{
      @arr = split;                                           #@arr是由字符串split产生的；省略了。
    $count++;
      push @arr,$count                                  #这儿也问一下吧，@arr中原来是字符串，现在
                                             #push一个整型没问题吧？？？？？
      $name= 'arr'.$count;
      %hash = (eval "$name" => \@arr);      #现在想想应该不对，仙子说了：这是引用。
}

所以请教：怎么存放哈希中的元素呢？？？？？

BosCourage

刚才朋友送来一本 perl cook 找到了大体的办法
粘贴上来，大家看看阿
%ttys = ( );

open(WHO, "who|")                   or die "can't open who: $!";
while (<WHO>) {
    ($user, $tty) = split;
    push( @{$ttys{$user}}, $tty );
}

foreach $user (sort keys %ttys) {
    print "$user: @{$ttys{$user}}\n";
}

vio

原帖由 BosCourage 于 2006-7-18 10:18 发表
%hash = (eval "$name" => \@arr);  

这个不对吗？
可以的吧

vio

原帖由 BosCourage 于 2006-7-18 10:47 发表
push( @{$ttys{$user}}, $tty );

这个我原来也没用过，
受教了，谢谢

BosCourage

不是说，那是引用吗？
我的数组被冲掉了 应该不对吧 反正我真样没有成功。
:wink:

原帖由 vio 于 2006-7-18 11:10 发表


这个不对吗？
可以的吧