perlでPORT監視の方法

質問

PORT監視がしたいのですが、下記のように書くと
”NG”にならずに常に”OK”となってしまいます。
使用していないPORTを指定しても常に”OK”となります。
LAN内ではうまく動かないのですが、何か良い方法がありましたら
アドバイスをお願い致します。

#!/usr/bin/perl

use Net::Ping;
$target = '192.168.xxx.xxx';
$ping = Net::Ping->new("tcp", 2);
$ping->{port_num} = 3306;

if ($ping->ping($target)) {
print "OK\n";
} else {
print "NG\n";
}

$ping->close();

exit;

回答No.1

osamuy · ベストアンサー

$ping->service_check( 1 );
――を追記してみるとか。

お礼

ご返信ありがとうございます。
無事に動きました。
ありがとうございました。