Some Perl Idioms
- ... we have a basic grep
#!/usr/bin/perl -w
use strict;
open FILE, "<", $ARGV[1] or die $!;
while(<FILE>) { print if /$ARGV[0]/; }
perl grep.pl searchstring somefile
| An Introduction To Perl | The Current State of Perl | 90 of 109 : [PREV] [NEXT] |
|
Some Perl Idioms
#!/usr/bin/perl -w perl grep.pl searchstring somefile |
| © 2004 Barbie barbie@missbarbell.co.uk | Home | http://birmingham.pm.org/ |