Vergara, Michael (TEM) wrote:
use Getopt::Long;
my %optctl = ();
Getopt::Long::GetOptions( \%optctl, "x!", "z!")
or die "\nOption Error\n\n";
my( $headerFlag, $duplexFlag );
if ( $optctl{z} ) { $headerFlag = $optctl{z}; }
else { $headerFlag = 1 };
if ( $optctl{x} ) { $duplexFlag = $optctl{x}; }
else { $duplexFlag = 0 };
print "header = $headerFlag\n";
print "duplex = $duplexFlag\n";
My problem is that header is always 1 and I don't think it should be
when I specify "-noz". If I can toggle the value of the 'x' option,
why not the 'z' option?
What am I not seeing?
use Getopt::Long;
my %optctl = ();
Getopt::Long::GetOptions( \%optctl, "x!", "z!")
or die "\nOption Error\n\n";
my( $headerFlag, $duplexFlag );
if ( $optctl{z} ) { $headerFlag = $optctl{z}; }
else { $headerFlag = 1 };
if ( $optctl{x} ) { $duplexFlag = $optctl{x}; }
else { $duplexFlag = 0 };
print "header = $headerFlag\n";
print "duplex = $duplexFlag\n";
My problem is that header is always 1 and I don't think it should be
when I specify "-noz". If I can toggle the value of the 'x' option,
why not the 'z' option?
What am I not seeing?
forum.
Since I'm feeling helpful at the moment, I will point out that you are
checking whether the option is true; you should be checking whether it
exists.
if ( exists $optctl{z} ) {
HTH,
Ronald
