perl - 为什么这个使用 tcpreplay 的脚本不等待用户输入？

Question

以下代码段只会等待用户第一次点击 Enter；之后，它会循环遍历所有剩余的 .pcap 文件，而无需等待用户输入。

$| = 1;

while (<*.pcap>) {
    print "$_";
    <STDIN>;

    system("tcpreplay -i eth0 -M 20 $_");
}

为什么这不在每次循环迭代时都等待用户输入？

Answer 1

你关心tcpreplay输出吗？重定向 stdout 和 stderr 似乎可以解决这个问题:

system("tcpreplay -i eth0 -M 20 $_ >/dev/null 2>&1");

或者，您可以使用它来捕获 tcpreplay 输出:

my $tcpreplay_output = `tcpreplay -i eth0 -M 20 $_ 2>&1`;