[uanog] setting default values using Getopt::Long

13 Feb 2006

      Есть перловый модуль Getopt::Long, есть необходимость
назначить некоей переменной значение по умолчанию. Тестовый
скрипт:

#!/usr/bin/perl -w --
use strict;
use warnings 'FATAL' => 'all';
use Getopt::Long qw(:config no_ignore_case pass_through);
use Data::Dumper;

GetOptions \my %opt, 'o:1000';
print Dumper \%opt;

В результате отдается:

$VAR1 = {};

вместо желаемого:

$VAR1 = { 
          'o' => '1000'
        };

В документации к Getopt::Long (Summary of Options
Specifications) сказано:

       : number [ desttype ]
           Like ":i", but if the value is omitted, the number will be
           assigned.

Вариант с проверкой значения переменной после GetOptions
напрашивается сам собой, но возникает вопрос: где я не прав?

P.S.

[raven@t-rex - 14:36:15 Пнд Фев 13 ~]
$ rpm -q perl
perl-5.8.8-1.2
[raven@t-rex - 14:36:17 Пнд Фев 13 ~]
$ perl -MGetopt::Long -e 'print $Getopt::Long::VERSION . "\n";'
2.35

-- 
VP992-RIPE
===================================================================
uanog mailing list.
To Unsubscribe: send mail to majordomo@uanog.kiev.ua
with "unsubscribe uanog" in the body of the message

[uanog] setting default values using Getopt::Long

Vladimir A. Podgorny