关于引用的问题

gregorian

my @aaa=(aa,bb);

my %aa=('a'=>1,'b'=>2,'c'=>3,'d'=>4);
my %bb=('e'=>1,'a'=>2,'g'=>3,'p'=>4);


数组中保存着哈希表的名字。
我希望对每个哈希表进行操作。
foreach my $abc (@aaa){
print $abc."\n";
    foreach my $key (keys(%abc)){
       print $key."\n";
}

}

我不知道怎么把$abc变量的内容传递进第二个for循环中用作哈希表的参数。

gregorian

有没有知道的高人啊

yybmsrs

my %aa=('a'=>1,'b'=>2,'c'=>3,'d'=>4);
my %bb=('e'=>1,'a'=>2,'g'=>3,'p'=>4);
my @aaa=(\%aa,\%bb);
...
foreach my $key (keys %$abc) {

gregorian

回复 3# yybmsrs


my @aaa=(\%aa,\%bb);

my %aa=('a'=>1,'b'=>2,'c'=>3,'d'=>4);
my %bb=('e'=>1,'a'=>2,'g'=>3,'p'=>4);

foreach my $abc (@aaa){
foreach my $key (keys(%$abc)){
print $key. "   ". $abc{$key}."\n";
}
}
什么都没有输出。

   

mcshell

1. my %aa=('a'=>1,'b'=>2,'c'=>3,'d'=>4);
   
2. my %bb=('e'=>1,'a'=>2,'g'=>3,'p'=>4);
   
3. my @aaa=(\%aa,\%bb);
   
4. foreach my $abc (@aaa){
   
5. foreach my $key (keys(%$abc)){
   
6. print "$key"."$$abc{$key}"."\n";
   
7. }
   
8. }

复制代码

回复 4# gregorian


   

gregorian

回复 5# mcshell

OK  谢谢了。
顺便问问，这个是看那本perl书里面的东西。
   

mcshell

回复 6# gregorian


    http://perldoc.perl.org/perlref.html#Symbolic-references

gregorian

回复 7# mcshell


   谢谢

Perlvim

看样有PHP背景，喜欢把变量名字当变量处理。

gregorian

回复 9# Perlvim

没有学过，呵呵
感觉这样能重复执行效率高点，你还有其他什么更好的方法吗？