if (my $attribute = $Data->{'is_new'} and $attribute eq 'Y') { }
my $attribute = $Data->{'is_new'}; if (defined $attribute && $attribute eq 'Y') { ... }
问题有两个：
>你还有一个额外的)>我的表达语境非常紧密; $属性不在词法范围内,直到包含它的条件语句的主体,因此其他分支并且无法访问它.您需要将其提升到包含的上下文,如我的示例所示.
