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

Question

尝试针对正则表达式数组检查字符串数组。

抛出：

'在模式匹配中使用$ string中的未初始化值（m //）在myscript行'

如果我取出if语句，它仍然会发出警告但会打印出来 @string_list中的元素

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

Answer 1

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