perl中获取某个域名的全部ip
#!/usr/bin/perlmy @dns=`nslookup www.baidu.com `;@ip;@iptable;for(2..$#dns){ $row = $dns[$_]; if($row =~ /\d+/) { $row =~ /(\d+\.\d+\.\d+\.\d+)/; push @ip, $1; }}foreach (@...
温婉红酒
他的归档
