NSLOOKUP脚本遍历在Perl

我麸新Perl脚本，并且需要帮助[这个脚本的一部分是从Internet源]做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);

来源

2014-10-16 Lance Bezek

您的脚本在运行时会返回错误。你有没有试图纠正这些错误？ – 2014-10-16 15:05:48

欢迎来到SO和Perl。你的脚本有两个语法错误。 Bareword'name'在第8行。还有一个for循环，第12行没有代码块。可能应该先在你的代码中写入这些代码，然后编辑你的问题。 – Miller 2014-10-16 15:19:13

你的问题是什么？ – AKHolland 2014-10-16 17:04:50

也可以尝试寻找在Net::Nslookup而不是使用nslookup ...

来源

2014-10-16 15:23:10

NSLOOKUP脚本遍历在Perl

回答

相关问题