連絡先 トップに戻る 最初に戻る
$Date: 2017-05-06 22:21:48 +0900 (2017/05/06 (土)) $
$Revision: 1117 $

リンク

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";
	}
}