前端之家收集整理的这篇文章主要介绍了
Perl 域名转换为IP，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::Ping;
use Socket;
my @array=( "api.weixin.qq.cz"
);
while (1==1){
my $CurrTime = time2iso(time());
foreach $host (@array){
$p = Net::Ping->new("icmp" );
$ip_addr=gethostbyname($host);
eval {$packed_ip_addr= inet_ntoa($ip_addr)};
# $packed_ip_addr= inet_ntoa($ip_addr);
if ($p->ping($host,2)) {
open (A,">>ping.log");
(
print A ("$CurrTime---$packed_ip_addr is active.\n")
)} else
{
open (B,">>ping.log");
(
print B ("$CurrTime---$host is lost.\n"),print "$host is lost.\n"
)
}
sleep(5)
}}
