如何在perl中传递命令行参数以获取getopt

Question

I am new to Perl. I have to pass command line arguments to GetOptions method so I can access those variables. I have tried the following code:

  use Getopt::Long;
  $result = GetOptions($ARGV[0] => \$serv_name, $ARGV[1] => \$serv_id);
  print "Server name is $serv_name & server id is $serv_id";

But I am not getting desired output. So how do I do this?

Answer 1

Try this (inspired from documentation of Getopt::Long ):

use Getopt::Long;

GetOptions(
    "server_id=i"   => \my $serv_id,     # numeric
    "server_name=s" => \my $serv_name,   # string
) or die "Error in command line arguments\n";

print "Server name is $serv_name & server id is $serv_id\n";

If server_id argument maybe not numeric, change "server_id=i" to "server_id=s"

And call the program these ways:

%> perl ex.pl --server_name=the_name --server_id=1234
# or
%> perl ex.pl -server_name the_name -server_id 1234