Perlプログラムに関する各種メモ書き

ping送信モジュール Net::Ping

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


関連エントリー

No.85
03/26 13:58

edit

perlモジュール