Перл: опции

Getopt:Std, Getopt::Long

http://www.perl.com/CPAN/modules/by-category/12_Opt_Arg_Param_Proc

GetOpt::Std я уже пробовал -- он не умеет делать списки из значений одинаковой опции. То есть в случае нескольких опций -Uaaa -Ubbb значение будет только bbb

Конечно можно самому разбивать строку и по частям ее парсить, но как-то теряется смысл модуля

мне не нужен список модулей, мне нужен модуль который умеет делать конкретную задачу

и еще чтобы этот модуль инсталлировался emerge'м

ну сделай перебор push( $var{$argparam}, $argvalue );

Эта задача точно решается с помощью модуля AppConfig.

http://search.cpan.org/~abw/AppConfig-1.66/lib/AppConfig.pm

Getopt::Long точно умеет

tnx, работает

блин, GetOpt::Long это здорово, но он по моему не понимает коротких опций

> Для одинаковых опций нужно получать список [ aaa, bbb ]

Как-нибудь так:

my %args;
while (@ARGV) 
{ 
  my ($key, $val) = splice @ARGV, 0, 2; 
  push @{$args{$key}}, $val
};


`--> perl test.pl zz 88 zz 44 ee 99
$VAR1 = {
          'zz' => [
                    '88',
                    '44'
                  ],
          'ee' => [
                    '99'
                  ]
        };

это все хорошо, конечно, но могут быть опции и без значений, я полагаю

> это все хорошо, конечно, но могут быть опции и без значений, я полагаю

:)

my %args;
while (@ARGV)
{
  my ($key, $val) = splice @ARGV, 0, 2;
  if ($val =~ /^-/o)
  {
    unshift @ARGV, $val;
    undef $val;
  }
  push @{$args{$key}}, ($val ? $val : ())
};

`--> ./zz.pl -zz 99 -zz 88 -kk -qq -ii 66
$VAR1 = {
          '-kk' => [],
          '-qq' => [],
          '-zz' => [
                     '99',
                     '88'
                   ],
          '-ii' => [
                     '66'
                   ]
        };

а еще опции можно задавать без пробела между опцией и аргументом: head -n1 эквивалентно head -n 1

imho, проще взять Getopt и подправить

хм, а еще есть Getopt::Mixed

вообще я уже написал свой велосипед без модулей

Getopt::Mixed написано что obsoleted, потому что Getopt::Long уже поддерживает и короткие опции. Но Getopt::Long не поддерживает отсутствие пробела между опцией и аргументом.

А самому править Getopt::Long неприемлемо -- это ж придется тащить в проект кучу кода, ну его нафиг.

> Но Getopt::Long не поддерживает отсутствие пробела между опцией и аргументом.

Поддерживает, только не по умолчанию. Нужно включить опцию "bundling".

Getopt::Long::Configure("bundling");

балин:) уже поздно, велосипед едет