как напечатать аргументы команды в Getopt :: Long getoptions

Question

Я пытаюсь записать поведение в моем скрипте Perl. Я хотел бы напечатать все аргументы, которые передаются в Getopt :: Long's GetOptions, но @ARGV пусто.

Я хотел бы что-то, что автоматически напечатало бы все опции и их значения, которые были переданы GetOptions. Я читал https://perldoc.perl.org/Getopt/Long.html, но ничего не могу найти там.

То, что я хочу, очень просто, я удивлен, что не могу найти ничего подобного. Как я могу автоматически вывести все параметры и их настройки для ведения журнала?

Answer 1

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

my @orig_ARGV = @ARGV;