in reply to accumulating rex-exp matches in an array
Added a `\' in front of the `.' in your regex.my @list; foreach my $file (<INFILE>) { foreach (split /,/, $file) { m/(AAA\.\d)/; push @list, $1; } }
In Section
Seekers of Perl Wisdom
in reply to accumulating rex-exp matches in an array
Added a `\' in front of the `.' in your regex.my @list; foreach my $file (<INFILE>) { foreach (split /,/, $file) { m/(AAA\.\d)/; push @list, $1; } }