perl 命令中的 ping 检查不起作用

Question

假设我 ping 一个已关闭或因任何原因无法访问的任意主机。

如果我在终端中这样做

ping -c 2 DOWNED_HOST_NAME_HERE

我会得到：

ping: unknown host DOWNED_HOST_NAME_HERE 

但是，这行代码不会导致脚本在我需要时死掉。

my $ping_check = `ping -c 2 $host`;


if ($ping_check =~ /ping: unknown host $host/){

    die("Error: Cannot currently access host.");

}

我不能为这个脚本使用 Net::Ping，我必须使用基本的 perl。这不会导致脚本出错吗？我注意到当我警告 $ping_check 时，它输出了一个空字符串。

Answer 1

试试这个：

my $ping_check = `ping -c 2 $host 2>&1`;

错误消息正在打印到 stderr。您的命令的结果是标准输出。 2>&1 结合 stderr 2 和 stdout 1

不过，我总是使用Net::Ping。它为您提供了更多的控制权并且更便携。