perl在字符串eq中使用未初始化的值$ _

Question

为什么我有时会出现这个错误？在字符串eq中使用未初始化的值$ _

if (defined($infos->{"valeur_exclude"}) &&
grep { $number eq $_ } @{$infos->{"valeur_exclude"}});

谢谢

Answer 1

数组包含undef某个地方.defined比较之前检查:

grep { defined && $number eq $_ }