in reply to command line arg help
Try:
No endorsement of this method implied.
mkmcconn
$ who | myprog -r -
update
Actually, I shouldn't let this go without recommending that
you try Getopt.
And it may be that you meant to write something like:
... but I wasn't sure that's what you meant.elsif ($ARGV[0] =~ m/^-r$/){ $option = shift @ARGV; &doit($_) for <STDIN>; }
No endorsement of this method implied.
mkmcconn
In Section
Seekers of Perl Wisdom