Perl Getopt:: Долгосрочный выпуск

Question

Тестирование perto Getopt::Long и при выполнении с аргументами для параметров выводит команду print 1 вместо предоставленного аргумента.

Вот код.. Не могу найти то, что здесь не хватает.

#!c:\Perl\bin
use Getopt::Long;

(@ARGV) or die "$0 --file <file name> --cb <CBEntry>";

GetOptions( "file" => \$file,
            "cb" => \$cb) or die "$0 --file <file name> --cb <CBEntry> :$! \n";

#print @ARGV;
print $file;
print $cb;

Answer 1

Следующее указывает на параметр без аргументов:

"file" => \$file

Чтобы принять строковый аргумент, используйте следующее:

"file=s" => \$file

Опция Технические характеристики