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) ? ? ? ?
}}