トップに戻る
tags
use Net::Ping; my $host="192.168.0.1"; my $timeout=0.1; my $p = Net::Ping->new("icmp"); if $p->ping($host, $timeout){ print "$host is alive.?n"; } $p->close();
root ユーザになれる環境でないと実行できないみたい
引用元:http://www.augustus.to/blog/3128/archives/000042.html
関連エントリー
edit
perlモジュール