Perl系统（命令）然后kill命令

Question

我正在尝试输出系统 netstat -an -p TCP $interval > $log 睡眠 $秒，然后退出/终止 netstat 命令，但无法使其正常工作。

如果我使用 start netstat...，我的 sleep 和 Kill 命令可以工作，但不会写入日志。

如果我只使用 netstat...，那么它会写入日志，但不会继续执行 sleep 和 Kill 命令。

关于如何解决这个问题有什么想法吗？

$netstat_cmd = "netstat -an -p TCP $interval >$netstatlog;
$stop_netstat_cmd = "c:\utilities\pskill NETSTAT.exe";
system($netstat_cmd);
sleep $seconds;
system "$stop_netstat_cmd";

谢谢！

Answer 1

为什么不使用 IPC::Run ？它有一个可跨 Unix 和 Win32 移植的 kill_kill() 方法（如果您在 Windows 上运行，则后者很重要，正如您的“start”似乎可能表明的那样）。

---

就您自己的方法而言，start xxx重定向不起作用，因此最简单的修复方法是：

• 创建一个批处理文件来运行netstat并重定向到文件

• 使用 start 启动批处理文件

Answer 2

你的麻烦是 system() 运行它的命令并等待它返回，所以你永远不会调用 sleep() 。您需要从另一个进程或在后台运行 netstat。您可以使用 fork() 来实现这一点，方法是从主进程中生成另一个进程，然后运行 ​​netstat：（

my $interval = 5;
my $netstatlog = "foo.tmp";
my $seconds = 10;

my $netstat_cmd = "netstat -an -p TCP $interval >$netstatlog";
my $stop_netstat_cmd = "pskill NETSTAT.exe";

if (my $pid = fork()) { # make new process
    print "launched netstat $pid\n";
}
else { # this is the "new" process
    system($netstat_cmd);
    exit();
}

sleep $seconds;

system "$stop_netstat_cmd";

我没有 pskill，所以您必须自己使该部分工作...）

Answer 3

Forks::Super 使此类任务变得简单为你。

use Forks::Super;
fork { cmd => $netstat_cmd, timeout => $seconds };
wait;