Perl：在嵌套的foreach中使用未初始化的变量

Question

尝试根据正则表达式的数组检查字符串数组。

抛出：

“的模式匹配的MyScript处线（M //）在$字符串初始化值的使用”如果我拿出if语句，它仍然会发出警告，但每张照片 元件在@string_list

foreach my $expr (@expr_list) { 
    foreach my $string (@string_list) { 
    if ($string =~ $expr) { 
     print $string,"\n" 
    } 
    } 
} 

Answer 1

这意味着的是@string_list的undef元件中的一个。