概述
#!/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";
}
最后
以上就是温婉红酒为你收集整理的perl中获取某个域名的全部ip的全部内容，希望文章能够帮你解决perl中获取某个域名的全部ip所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复