Could someone help me please?
I am trying to write a simple script that will take input from the command
line as well as input from a pipe.
For example, the script should be able to do both of the following:
$ cat someFile | myPerlScript.pl # from a pipe
and
$ myPerlScript.pl someFile # from command line
This is what I have (very simple):
#----------------------- (begin) --------------------#
#-- myScript.pl --#
#
#!/bin/perl
use warnings;
sub parseFile()
{
while (<>) { ## I tried passing in \*STDIN or \*F but
## had nothing but problems with that
# do some processing to the file
# ...
print ". "; ## just to do something in the loop for now
}
}
if (@ARGV) {
$file = shift;
open(F, "< $file") or die "cannot open file $file: $!\n";
parseFile;
close(F);
}
else {
parseFile;
}
#----------------------- (end) --------------------#
What is obvious to one is not always obvious to another.
Thanks,
JW
__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
