Perl使用技巧17：使用ping模块检查服务器连接

arche77

Perl使用技巧17：使用ping模块检查服务器连接

use Net:ing;


$live=ping('baidu.com','80');
say $live;

($live,$speed)=ping('baidu.com','80')
say "$live,$speed";

sub ping {
        my ($host,$port)=@_;
    my $p = Net:ing->new();
    $p->port_number($port);
    my ($r,$duration) = $p->ping($host);
    $p->close();
    wantarray ? return ($r,$duration) : return $r;
}

用来检查服务器端口是否正常。