perl中获取某个域名的全部ip
#!/usr/bin/perl
my @dns=`nslookup www.baidu.com `;
@ip;
@iptable;
for(2..$#dns)
{
$row = $dns[$_];
if($row =~ /\d+/)
{
$row =~ /(\d+\.\d+\.\d+\.\d+)/;
push @ip, $1;
}
}
foreach (@ip)
{
/\d+\.\d+\.(\d+)\.\d+/;
push @iptable, $1;
}
print @dns;
print "\n";
foreach(@iptable)
{
print $_, "\t";
}