Perl: use of uninitialized variable in nested foreach

Question

Trying to check an array of strings against an array of regex 's.

Throws:

'Use of uninitialized value in $string in pattern match (m//) at myscript line '

If I take out the if statement, it still gives warning but prints each element in the @string_list

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

Add the value of `@expr_list` and `@string_list` to the question. — Barmar, Apr 07 '17 at 22:35
http://stackoverflow.com/questions/11122977/how-do-i-remove-all-undefs-from-array — xxfelixxx, Apr 10 '17 at 01:22

score 2 · Accepted Answer · answered Apr 08 '17 at 00:18

2

That means one of the elements of @string_list is undef.

answered Apr 08 '17 at 00:18

ikegami

1 Answers1