Question

I want to parse a list of arguments in a perl script, for example i have this situation :

script.pl -h 127.0.0.1 -u user -p pass arg1 arg2 arg3

How can i do for parse the list of argument that aren’t option in an array, and the option parameter in scalar value ?

Thanks.

Answer 1

Well, if they are the only things on the command line that aren’t given as options, then they should still be in @ARGV. So just use @ARGV.

use Getopt::Long;

# save arguments following -h or --host in the scalar $host
# the '=s' means that an argument follows the option
# they can follow by a space or '=' ( --host=127.0.0.1 )
GetOptions( 'host=s' => \my $host 
          , 'user=s' => \my $user  # same for --user or -u
          , 'pass=s' => \my $pass  # same for --pass or -p
          );

# @ARGV: [ qw<arg1 arg2 arg3> ]

see Getopt::Long