View source for Perl Command-Line Arguments


== The @ARGV array ==
With Perl, command-line arguments are stored in the array named @ARGV. $ARGV[0] contains the first argument, $ARGV[1] contains the second, etc.

== The Getopt::Std and Getopt::Long Modules ==
<source lang="perl">
#!/usr/bin/perl
use Getopt::Long;
GetOptions("o"=>\$oflag,
    "verbose!"=>\$verboseornoverbose,
    "string=s"=>\$stringmandatory,
    "optional:s",\$optionalstring,
    "int=i"=> \$mandatoryinteger,
    "optint:i"=> \$optionalinteger,
    "float=f"=> \$mandatoryfloat,
    "optfloat:f"=> \$optionalfloat);
print "oflag $oflag\n" if $oflag;
print "verboseornoverbose $verboseornoverbose\n" if $verboseornoverbose;
...
print "Unprocessed by Getopt::Long\n" if $ARGV[0];
foreach (@ARGV) {
    print "$_\n";
}
</source>

== Diamond Operator ==
If the command line arguments are a list of files that you want to read through, use the diamond operator to read through each one sequentially: 
<source lang="perl">
while (<>){
    chomp;  # operates on $_
    # do something with the current line in $_
}
</source>
Call it like this:
<pre>
./my_program file1 file2 file3
</pre>
or like this:
<pre>
./my_program file*
</pre>
It reads each file line by line, giving an error if a file can't be opened. 

== User Input from the Command Line ==
<source lang="perl">
print "Enter your name: ";
chomp( my $name = <STDIN>);
print "Hello, $name!\n"
</source>