多维哈希中key的exists的判断

塞图宝

my %hash;
print "exists!\n" if exists $hash{1};
print "exists!\n" if exists $hash{1}{2}{3};
print "exists!\n" if exists $hash{1};

第三次打印的时候，$hash{1}就存在了，这可能会造成一些问题。
怎样避免这样的情况的发生呢

stanley_tam

{:3_184:}

1. no autovivification;
   
2. print "exists!\n" if exists $hash{1};
   
3. print "exists!\n" if exists $hash{1}{2}{3};
   
4. print "exists!\n" if exists $hash{1};

复制代码

huang6894

回复 1# 塞图宝

1. cat t.pl
   
2. 
   
3. my %hash;
   
4. print "1exists!\n" if exists $hash{"1"};
   
5. print "2exists!\n" if exists $hash{"1"}{"2"}{"3"};
   
6. print "3exists!\n" if exists $hash{"1"};
   
7. print "4exists!\n" if exists $hash{"1"}{"2"};
   
8. print "5exists!\n" if exists $hash{"1"}{"2"}{"3"};
   
9. --------------------
   
10. 
    
11. perl t.pl
    
12. 
    
13. 3exists!
    
14. 4exists!

复制代码

塞图宝

回复 2# stanley_tam


    太感谢了！这个方法很好！

塞图宝

回复 3# huang6894


    谢谢了！