我正在尝试编写一个Perl脚本,该脚本检查设备的名称是否存在于DNS中,如果不存在,则打印设备的名称。目前,我就是这样做的:
my $host_result = `host $device`;
my @host_result = split(/ /, $host_result);
my $dns = $host_result[0];
# host normally puts out something like this if there is an error:
# Host blah not found: 3(NXDOMAIN)
# So I check to see if the fi