How do I take in a file or pipe input? What I want is: script.pl file.txt or cat file.txt | script.pl
What I'm trying is:
my $logfile;
if (@ARGV and $ARGV[0] =~ /^-./) {
open($logfile, '<', $ARGV[0]);
} elsif (-t STDIN and not @ARGV) {
$logfile = <STDIN>;
} else {
doe "no data"
}
PS - I want to avoid slurping the whole file.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
