in reply to Trouble with foreach loop.... I think
In a way, your code is doing exactly what you say you want it to: it is indeed matching every line in @netstat that matches [your] @matches list", but the way perl interprets that probably doesn't capture what you're thinking, What your code does is give you every line in the netstat output that matches *your entire @matches array*, interpreting that array as a string. The matching operator is a double-quote context (just like print "@matches"). And, as it says in perldata:
In other words, the line:Arrays and slices are interpolated into double-quoted strings by joining the elements with the delimiter specified in the $" variable($LIST_SEPARATOR if "use English;" is specified), space by default.
comes out (given the rest of your code) as equivalent to my @results = grep(/invalid headers packets dropped/, @netstat); in other words it's trying to find that whole "phrase."my @results = grep( /@matches/, @netstat );
I think you also mixed up your foreach loop, which loops over @netstat, when I think what you wanted was to check each element in @matches; putting all that together, I think your loop should be:
foreach my $match (@matches) { my @results = grep /$match/, @results; print @results; }
HTH
If not P, what? Q maybe?
"Sidney Morgenbesser"
In Section
Seekers of Perl Wisdom