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

Question

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

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

由于

Answer 1

数组在某处包含undef。在比较之前检查defined：

grep { defined && $number eq $_ }

Answer 2

也许，regexp而不是EQ？

我的@foo = grep {！/ ^＃/} @ bar;

http://perldoc.perl.org/functions/grep.html