Questions about this topic? Sign up to ask in the talk tab.

Perl/Basics/User Input/Command Line/Getopt::Long/Code

From NetSec
Jump to: navigation, search
 
use strict;
use warnings;
use Getopt::Long;
 
my $message, $boolean;
GetOptions('message=s' => \$message, 'boolean' => \$boolean);
 
print $message . "\n";
print "The boolean -b option was set!\n" if defined $boolean;
print "The boolean -b option was not set!\n" if undef $boolean;
 
Retrieved from "http://nets.ec/index.php?title=Perl/Basics/User_Input/Command_Line/Getopt::Long/Code&oldid=7952"