Next | Welcome to my ~/bin | 67 |
Were you wondering if I ever use Getopt::?
Sometimes I am not a complete freak!
use Getopt::Std; my $opts = 'ulhIive:F:q'; getopts($opts) or usage(); my $pat = defined($opt_e) ? $opt_e : @ARGV ? shift : usage(); my $qr = $opt_i ? qr/$pat/i : qr/$pat/;
$| = 1 if $opt_u;
Next | Menu | Copyright © 2005 M. J. Dominus |