是否有Perl子程序存在并定义？

Question

我使用exists并始终在if语句中定义

if (exists($a->{b}) and defined($a->{b})

是否有一个子程序可以同时执行这两个操作？

更新:
似乎我没有提供非常好的示例代码.要获得更好的问题和匹配的答案,请查看hash-key-creates-key检查是否存在.

Answer 1

那是一样的

if (defined($a->{b}))

关于注释中的回复,defined不实例化密钥.

>perl -E"if (exists($a->{b}) and defined($a->{b})) { }  say 0+keys(%$a);"
0

>perl -E"if (defined($a->{b})) { }  say 0+keys(%$a);"
0

->另一方面,自动恢复正常.

>perl -E"if (defined($a->{b})) { }  say $a || 0;"
HASH(0x3fbd8c)

但情况也是exists如此.

>perl -E"if (exists($a->{b}) and defined($a->{b})) { }  say $a || 0;"
HASH(0x81bd7c)

如果你试图避免自动更新,你可以使用

>perl -E"if ($a && defined($a->{b})) { }  say $a || 0;"
0

要么

>perl -E"no autovivification; if (defined($a->{b})) { }  say $a || 0;"
0