Perl 검사 적중 스크립트

이 스크립트는 코드가 간단하지만 정확한지 판단하는 데 매우 중요한 위치를 차지한다.
icmp와 해석을 통해 어느 정도 의미가 있습니다.
mark!..

#!/usr/bin/perl
use Net::Ping;
sub icmp_domain{
     $k='true';
     local($host)=shift;
     $p=Net::Ping->new("icmp");
#@url=<>;
     $k='false' unless $p->ping($host,1);
#if($p->ping($host,1)){
#     print "yes
";
#}else{
#     print "No
";
#}
     return $k;
     $p->close();
}
sub domain_ip{
     local($host)=shift;
     $p=Net::Ping->new();
     $p->hires();
     ($ret,undef,$ip) = $p->ping($host, 1);
     $p->close();
     return $ip;
}
$ip=domain_ip('163.com');
print $ip;
$icmp=icmp_domain('waieufh290.com');
print $icmp;