my $target_type = (defined($item->{target_type}) && $item->{target_type})
? $item->{target_type}
: "";
my $target_id = (defined($item->{target_id}) && $item->{target_id})
? $item->{target_id}
: "";
为什么开发人员使用&&几乎相同的条件？
解决方法
显然他是腰带和吊带类型. (定义的($x)&& $x)几乎相当于$x,因为undef是假的. (不同的是,如果$x是undef那么(定义($x)&& $x)将是Perl的特殊假值,这是定义的,但在这种情况下没有区别.)可能曾经有过不同的条件(如$x> 0)和定义的测试是必要的,以避免有关未初始化值的警告.然后有人删除了这个条件,并没有想到删除现在不必要的定义.
使用(定义的($x)&& $x)(作为onon15 points out)的另一个原因是强调未来的维护程序员可能没有定义$x.就个人而言,我会对此发表评论,但是TIMTOWTDI.