nslookup脚本循环遍历perl中的IP地址

Question

Stackoverflow社区，

我不熟悉PERL脚本并且需要帮助[此脚本的一部分来自互联网资源]在文件中的IP地址列表上执行nslookup并循环遍历每个脚本直到我结束。如果域名不存在则执行X，如果它确实执行Y.

以下信息：

-existent - is a key word when nslookup aborts
name - is a key word when it works
listofhosts - is my ip address list

非常感谢任何帮助

#!/usr/bin/perl
#!c:\perl64\bin

use strict;
use warnings;

my $noname=-existent;
my $name=name;

open IPADDRESSES,("c:\\perl64\\scripts\\listofhosts.txt") or die("File could not be opened :$!");
my @list=<IPADDRESSES>;
foreach my $list(@list);
my $results=`nslookup $list`;
CHOMP ($list);
if ($noname) {
    print ("no name")}
elsif ($name){
    print ("IP address $list:\n");
    print ("=\n");
    print ("DNS name:$results\n");
}

close (IPADDRESSES); 

Answer 1

另请尝试查看Net::Nslookup，而不是使用nslookup ...