Re^2: How to find what options are used for Getopt::Long

here is my code

#!/usr/bin/perl

use strict;
use Getopt::Long;
$Getopt::Long::autoabbrev = 1;
$Getopt::Long::ignorecase = 0;

my ($opt_help, $opt_cfg, $opt_verbose, $opt_silent, $opt_dir);

GetOptions(
            "help"    => \$opt_help,
            "cfg=s"   => \$opt_cfg,
            "verbose" => \$opt_verbose,
            "silent"  => \$opt_silent,
            "dir=s"   => \$opt_dir,
          ) or die "Mandatory options not supplied\n";

# How to find out which option is passed via Getopt.
# I can rely on the variables for their definedness, but options might
+ increase and
# considerably. Is there any short way that I can find where all the o
+ptions are stored
# say in a hash.
[download]

Comment on Re^2: How to find what options are used for Getopt::Long Download Code

Replies are listed 'Best First'.
Re^3: How to find what options are used for Getopt::Long by Anonymous Monk on Aug 03, 2012 at 09:49 UTC
`#!/usr/bin/perl -- my @argv = @ARGV; ... your code here ... use Data::Dump; dd { before => \@argv, after => \@ARGV };` [download]	[reply] [d/l]