perl，保存命令行选项

Question

我有这个perl脚本，它使用getoption包接收参数。

有没有一种简单的方法来记录用户用来执行的确切命令？

我想将文档记录到日志文件中。

Gordon

Answer 1

同时使用$0和@ARGV：

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

Answer 2

或者您可以简单地

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

形成perlvar

$LIST_SEPARATOR
$"

当数组或数组切片插入双引号字符串或类似的上下文，例如/…/，其元素由此值。默认为空格。对于例如：

print "The array is: @arrayn";

相当于：

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