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