Perl GetOptions Function

Question

Мой скрипт Perl возвращает аргумент следующим образом. Функция Getoptions используется для извлечения аргументов командной строки.

./test.pl -mode report -writeid 12 13 23...... 

$rc=GetOptions('mode=s' => \$cmdParams{mode} 
      ,'writeid:i{1,}' => \@writeid 
      ,'h|?|help' => \$help 
     ); 

Проблема заключается в том, когда у меня есть буквенно-цифровых символов в опции writeid это не удается. Writeid определяется как integer (i {1,}) и может принимать 1 ко многим значениям. Это не сработает, если у меня есть буквенно-цифровой символ во втором значении. ./test.pl -mode report -writeid 12 A3 23 ......

Какое обходное решение я могу сделать?

Answer 1

Поскольку вы используете функцию GetOptions, я предполагаю, что вы используете GetOpts :: Long, проблема с «{1,}» одним или несколькими значениями в спецификации опций заключается в том, что после успешного сопоставления целого числа, вы «преуспели». если вы удалили количественную спецификацию и просто запустили с помощью «writeid: i» => \ @writeid, каждому write_id должен предшествовать флаг в командной строке, и вы получите сообщение об ошибке, когда он не сможет проанализировать.