Получение параметров командной строки и их значений

Question

Я хочу записать параметры и их аргументы из пользовательской команды после запуска скрипта.

Рассмотрим следующую команду:

./test.pl --ip localhost --id 400154 --class firstgrade 

... и много других опций и значений. Мой желаемый результат будет следующим образом (с помощью log4perl):

debug - ip=>localhost id=>400154 class=>firstgrade 

я:

use Getopt::Long; 
my $ip; 
my $id; 
my $class; 
my %h =('ip' => \$ip, 
     'id' => \$id, 
    'class' => \$class); 
GetOptions(\%h); 
$logger->debug(join('=>',%h)); 

, но он не работает. Пожалуйста помоги.

Answer 1

Ваш код представляет собой странную комбинацию из двух различных функций Getopt::Long - он может либо анализировать параметры в хэш, либо заполнять отдельные параметры в переменных. Можно даже поместить часть в хэш и отдохнуть в переменные.

Это должно работать:

use Getopt::Long; 

my @options = qw(ip id class); 
my %h =(); 
GetOptions(\%h, 
    map { "$_:s" } @options 
) or die "Could not parse"; 
warn map { "$_=>$h{$_} " } keys %h; 

Это вариант, где анализируемые параметры помещаются в хэш. Примечание: :s после каждого варианта указать, что он принимает аргумент.

Редактировать: обновлен ответ на каждое разъяснение ниже.

Answer 2

Попробуйте это:

my $ip = ""; my $id = ""; my $class= ""; 
GetOptions('ip=s' => \$ip, 'id=s' => \$id, 'class=s' => \$class); 
print "debug - ip=>$ip id=>$id, class=>$class"; 

И вы должны, вероятно, назвать это так:

./test.pl --ip localhost --id 400154 --class firstgrade 

Answer 3

Следующий код демонстрирует два способа добиться того, что вы хотите.

Метод «домашний рост» использует карту и объединяется для создания списка опций. (Grep исключает опции undef. Вы можете удалить часть grep {}.)

Метод Data :: Dumper может быть желательным, поскольку он может быть полезен.

---

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Getopt::Long qw(:config gnu_getopt); 
use Data::Dumper; 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Indent = 0; 
$Data::Dumper::Terse = 1; 

my %opts = (
    dir => undef, 
    verbose => 0, 
    silent => 0, 
); 

GetOptions(\%opts, 
      'dir|d=s', 
      'verbose|v+', 
      'silent+', 
     ) 
    or die("Usage: blah\n"); 

# also see Getopt::Long perldoc for pod2usage 

print("home grown:\n", 
     join(" ", map { sprintf('%s=>%s',$_,$opts{$_}||'undef') } 
       grep {defined $opts{$_}} keys %opts), 
     "\n"); 

print("Dumper:\n", 
     Dumper(\%opts), 
     "\n"); 

---

Пример:

apt12j$ ~/tmp/x.pl -vv --silent 
home grown: 
verbose=>2 silent=>1 
Dumper: 
{'dir' => undef,'silent' => 1,'verbose' => 2} 

Answer 4

заказ MooseX :: Getopt, это поможет вам в два раза:

1. получить Вас в современный OO Perl

2. создать супер простые приложения командной строки.

Оформить заказ MooseX :: Приложение :: Cmd. Это поможет вам отделить свою логику. Или App :: Cmd, если вы еще не хотите пить посох Moose.