我正在尝试编写一个工具来检查现有 PTR 记录的 IP 地址,然后如果没有 PTR 记录,则执行 ping 以查看它是否响应。
然后如果没有响应,它应该打印一条消息说
这就是我到目前为止所拥有的。
#!/usr/bin/perl
$ping = "100%";
use warnings;
while (defined($line = <>)) {
chomp($line);
print `nslookup $line`;
if ("NXDOMAIN") {
print `ping -c 1 -w 2.0 $line`;
if ($ping) {
print "IP Address '$line' is available.\n"
}
}
}
我似乎无法开始工作的是 if 语句,如果文本 NXDOMAIN 在输出中,它会执行 ping。然后,如果 ping 的文本包含 $ping,它会打印以下行。
print "IP Address '$line' is available.\n"
任何帮助将不胜感激。谢谢!