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

假设这个电话是

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

Inside verify.pl我想捕获上面的整个调用,并将其附加到一个日志文件中进行跟踪.

如何捕获整个通话呢？

解决方法

有一些方法(至少在unix系统上)来获取整个命令行：

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

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

print qx/ps -o args $$/;