in reply to Stream and Atom flexibility
You could do something like
where sub process does the real work.if (@ARGV) { process($_) for @ARGV; } else { while (<>) { process($_); } }
|
---|
In Section
Seekers of Perl Wisdom
in reply to Stream and Atom flexibility
You could do something like
where sub process does the real work.if (@ARGV) { process($_) for @ARGV; } else { while (<>) { process($_); } }
|
---|