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

回答

相關問題