Re: How to make skip an input parameter.

[Dr.Ruud]

Parag Kalra wrote:

use Getopt::Long;

my ( $name, $passion, $age);

my $result = GetOptions(
               'name|n=s' => \$name,
               'passion|p=s' => \$passion,
               'age|a=i' => \$age,
       );

I prefer the hashref mode:


#!/usr/bin/perl -wl
use strict;

use Data::Dumper;
use Getopt::Long;

my @options= qw(
  name|n=s
  passion|p=s@
  age|a=i
);
my %option;

my $result = GetOptions(
    \%option,
    @options,
    qw( debug|d ),
);
print Dumper \%option if my $DEBUG= $option{debug};

# ...


$ ./test.pl -n Joan -a 37 -p Perl -p Parties -d
$VAR1 = {
          'passion' => [
                         'Perl',
                         'Parties'
                       ],
          'debug' => 1,
          'name' => 'Joan',
          'age' => 37
        };


--
Ruud

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/