0 Пользователей и 1 Гость просматривают эту тему.
#!/usr/bin/perl use Net::Ping;$host = \'localhost\'; $p = Net::Ping->new(\'icmp\'); print "$host is alive.\\n" if $p->ping($host); $p->close();---------- Perl Run ----------localhost is alive.Normal TerminationOutput completed (2 sec consumed).