How to Implement "grep –v" in Perl
The UNIX grep command has a very useful argument, simply known as "-v", that can find all lines unless it has the following argument anywhere in each line. Here is an example of using this command:
grep -v STRING FILENAME |
---|
So, if you had a file with these lines as its contents.
ABCDEF GHI DOG JKL MNOP DG QR DOG ST UV XYZ |
---|
And you run this "grep -v DOG filename.txt" command, then the output would be this:
ABCDEF MNOP DG QR XYZ |
---|
Well, you can do the same command in Perl with this single line of code:
grep { $_ !~ /STRING/i } @RAY; |
---|
Go ahead and give it a try.
by Phil for Humanity
on 04/22/2010