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

Question

我使用存在，并且在规定的if语句所有的时间

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

是有没有在同一时间做这两个子程序？

更新：
似乎我没有给出很好的示例代码。对于更好的问题和匹配答案，请查看checking-for-existence-of-hash-key-creates-key。

Answer 1

defined(...)时exists(...)是真实的，所以只能是真回答你问题是该子程序被称为defined。

Answer 2

这是同样的事情

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 

->另一方面，autovivifies为正常。

>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 

Answer 3

• 如果该键存在（即使是undef值）存在（）检查
• （）定义检查是否有定义

，如果你只是想检查的值关键存在（即使undef）然后只是使用存在（）

这里是一个相关的问题，很好地解释它：What's the difference between exists and defined?