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

发布时间：2020-12-15 22:02:09 所属栏目：大数据来源：网络整理

导读：假设这个电话是 /usr/local/bin/perl verify.pl 1 3 de# result.log Inside verify.pl我想捕获上面的整个调用,并将其附加到一个日志文件中进行跟踪. 如何捕获整个通话呢？解决方法有一些方法(至少在unix系统上)来获取整个命令行： my $cmdline = `ps -o ar

假设这个电话是

/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 $$/;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!