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:
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.
In other words, the line:
my @results = grep( /@matches/, @netstat );
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."
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"
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.