的Perl：测试哈希片不会产生预期的结果

Question

我有以下代码：

if (defined(@hash{qw{value1 value2 value3}})){ 
    # code block 
} 

我希望发生的是代码块来执行，如果任一$ {散列值1} $ {哈希value2}或$ hash {value3}被定义。但是，什么情况是，代码块执行，当且仅当$哈希{值3}定义：

$hash{value3}='yep, here!'; 
if (defined(@hash{qw{value1 value2 value3}})){ 
    print "yay!"; 
} 

输出：

yay! 

但是：

$hash{value2}='yep, here!'; 
if (defined(@hash{qw{value1 value2 value3}})){ 
    print "yay!"; 
} 

输出：

<nothing> 

为什么不能正常工作对，我该怎么办？

Answer 1

perldoc -f defined没有提到散片，并警告不会就此发出警告，但你想要的是，

if (grep defined, @hash{qw{value1 value2 value3}}) { 
    # code block 
} 

为defined()力量标量上下文，片在这种情况下，最后的回报元件。

use warnings; 

sub context { 
    print wantarray ? "LIST" : "SCALAR"; 
} 

my $def = defined(context()); 

输出SCALAR