$Date: 2018-07-07 06:49:13 +0900 (2018/07/07 (土)) $
$Revision: 1347 $

ping

リンク

Net::Ping - リモートホストの生存確認 / Perlモジュール徹底解説

ICMP に対する ping

以下のスクリプトを実行すれば ping を行える。ただし管理者としてコマンドプロンプトを起動することが必要になる。

#!/usr/bin/perl
use Net::Ping;

my $p = Net::Ping->new("icmp");

for( $i = 1; $i < 256; $i++ )
{
	my $host = "192.168.11.$i";
	my $alive = $p->ping($host, 1);
	if( $alive )
	{
		print "$host: $alive\n";
	}
}

HTTP ポートに対する ping

#!/usr/bin/perl
use Net::Ping;

my $p = Net::Ping->new;

$p->port_number(80);

for( $i = 1; $i < 256; $i++ )
{
	my $host = "192.168.11.$i";
	my $alive = $p->ping($host, 1);
	if( $alive )
	{
		print "$host: $alive\n";
	}
}