的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