perl - 这个 Perl 表达式有什么问题？

Question

跟随有什么问题。我收到 $attribute not defined错误。

if (my $attribute = $Data->{'is_new'} and $attribute eq 'Y') {
}

Answer 1

use strict;就会发现问题。

$ perl -e'use strict; my $attribute = "..." and $attribute eq "Y";'
Global symbol "$attribute" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.

A my声明只对后面的语句有影响，对声明所在的语句没有影响。 (同样适用于 our 和 local 声明。)这意味着 $attribute您使用 my 创建的并且您分配的变量与 $attribute 不同你比较 Y .你要

my $attribute = $Data->{'is_new'};
if ($attribute eq 'Y') { ... }

现在，如果 $Data->{is_new}不存在或未定义， $attribute将是未定义的，并将其与 Y 进行比较会发出警告。您可以通过以下方式避免此警告:

my $attribute = $Data->{'is_new'};
if (defined($attribute) && $attribute eq 'Y') { ... }

或者:(5.10+)

my $attribute = $Data->{'is_new'};
if (($attribute // '') eq 'Y') { ... }