Scott: Created page with ' == 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 Get…'

2011-02-01T18:15:40Z

Created page with ' == 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 Get…'

New page

== 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>

Perl Command-Line Arguments - Revision history

Scott: Created page with ' == 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 Get…'