Perl, сохраняя параметр командной строки

Question

У меня есть этот Perl-скрипт, и он принимает аргументы, используя пакет getoption.

Есть ли простой способ документировать, какую именно команду использовал пользователь?

Я бы хотел документировать в файл журнала.

Гордон

Answer 1

Используйте $0 и @ARGV вместе:

my $full_command = join(' ', $0, @ARGV);

Answer 2

или вы можете просто

my $full;
BEGIN { $full = "$0 @ARGV" }
#
print "log: $full\n";

форма перлвар

$LIST_SEPARATOR
$"

Когда массив или срез массива интерполируется в двойные кавычки строка или аналогичный контекст, такой как /.../, его элементы разделены это значение. По умолчанию это пробел. За Например, это:

print "The array is: @array\n";

эквивалентно этому:

print "The array is: " . join($", @array) . "\n";