perl 哈希赋值

illidanee

print ref($_) for (keys %hash);   打印为空，$hash的key已经不是引用了。

illidanee

$_中确实存了匿名数组的地址 ，
但 print ref$_ for (keys %hash); 返回为空，说明类型不是引用了，所以不能转换了。

可以这样试试。不知道能不能符合你的要求。但必须注释掉 use strict;
《符号引用》

1. our $a = [10,20];
   
2. our $b = [20,30];
   
3. our $c = [30,40];
   
4. my %hash = (
   
5.         a => 1,
   
6.         b => 2,
   
7.         c => 3
   
8. );
   
9. #print Dumper(\%hash);
   
10. for my $i (keys %hash){
    
11.         print $$i;
    
12.         print ref($$i);
    
13.         print @$$i;
    
14. }

复制代码

sjdy521

楼主要 引用 作为hash的key？可以考虑用这个模块Tie::RefHash

xiyoulaoyuanjia

++;

Perl_Er 发表于 2012-09-04 14:31
回复 5# FTDlinux