note
jdavidboyd
Okay, here's something I don't understand.<br>
<br>
Suppose I have the following code, I'll call it prog.pl:<br><br>
<code>
#!/usr/bin/perl
my $lines;
my @lines;
print ("\@ARGV: @ARGV, \$\#ARGV: $#ARGV\n");
if (!@ARGV){
print("No command line parameters present");
}
chomp(@lines = <>);
foreach $lines (@lines){
print("$lines\n");
}
</code>
<br>
<br>
1. If I run the program as <b>perl prog.pl test.txt</b> it prints out <br><br>
@ARGV: test.txt, $#ARGV: 0<br>
<br>
2. If I run the program as <b>perl prog.pl</b> it prints out<br><br>
@ARGV: , $#ARGV: -1<br>
<br>
<i>(This next one is my problem.)</i><br>
<br>
3. If I run the program as <b>perl prog.pl < test.txt</b> it prints out<br><br>
@ARGV: , $#ARGV: -1<br><br>
which looks as if there were no command line arguments.
<br><br>
Now, I realize that in some aspects, this might be considered correct,<br> as there <b>are</b> no command line arguments, just input to the <> operator.<br>
Will GetOpt get around this peculiarity?<br>
Or am I going to be stuck always showing my little help text no matter what?<br><br>
Am I missing something <i>dreadfully</i> obvious?
372438
372438