如何在Perl中捕获完整的命令行？

Question

假设呼叫是

/usr/local/bin/perl verify.pl 1 3 de# > result.log

在内部verify.pl我想捕获上面的整个调用并将其附加到日志文件以进行跟踪.

如何捕获整个呼叫？

Answer 1

有办法(至少在unix系统上)获得整个命令行:

my $cmdline = `ps -o args -C perl | grep verify.pl`;
print $cmdline, "\n";

e:使用PID的清洁方式(由Nathan Fellman提供):

print qx/ps -o args $$/;

Answer 2

$0有脚本名称并@ARGV有参数,所以整个命令行是:

$commandline = $0 . " ". (join " ", @ARGV);

或者,更优雅(感谢FMc):

$commandline = join " ", $0, @ARGV;

但是,我不知道如何捕获重定向(> result.log)