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";

form the perlvar

$LIST_SEPARATOR
$"

  

当数组或数组切片是   插值为双引号   字符串或类似的上下文   /.../，其元素由。分隔   这个价值。默认是一个空格。对于   例如，这个：

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

  

相当于：

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