我有这个perl脚本,它使用getoption包接受参数。
有没有一种简单的方法来记录用户执行的确切命令?
我想记录到一个日志文件中。
戈登
发布于 2011-06-14 01:48:41
同时使用$0
和@ARGV
:
my $full_command = join(' ', $0, @ARGV);
发布于 2011-06-14 03:53:52
或者您可以简单地
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";
https://stackoverflow.com/questions/6334051
复制相似问题