ネットワーク接続のテスト – pingの代替手段

#

# バージョン 1.00 2010年7月30日

# このスクリプトは以下でテスト済みです

# Open VOS 17.0.2ah を実行中、Perl v5.8.0 (i686-vos 向けにビルド済み)

# MicrosoftWindows Service Pack 3 が実行中

# ActiveState Perl v5.10.0 (MSWin32-x86-マルチスレッド用ビルド)

# Red HatLinux .5 を実行中

# Perl v5.8.5linux 向けにビルド済み

#

# [email protected]

#

use IO::Socket;

use Getopt::Long;

use Sys::Hostname;

use strict;

my ($result);

my ($localPort, $message, $peerAddr);

my ($newSock, $data);

$result = GetOptions('port=s' => $localPort,

'message=s' => $message);

if (($result != 1) || !(defined($localPort)))

{

print "nn使用方法:n";

print "tperl tcplisten.pl -port PORT-NUMBER [-message MESSAGE]";

終了;

}

if (!defined ($message))

{

print "メッセージが指定されていません – メッセージを作成中";

$message = "tcplisten が実行中のホスト名で接続を受け付けました" . hostname;

}

print "perl tcplisten.pl -port $localPort -message '" . $message . "'\n";

my $sock = IO::Socket::INET->new(

Proto => ‘tcp’,

ローカルポート => $localPort,

LocalAddr => '0.0.0.0',

聴く => 1,

) または die “ポート $localPort のソケットを作成できませんでした: $!n”;

while (1)

{

my $newSock = $sock->accept();

print "接続要求を受諾しました。接続元: " . $newSock->peerhost .

” at ” . localtime() . “n”;

print $newSock $message . "\n";

$newSock -> shutdown(2);

$sock->read($data, 1024); # 終了を示すシグナルを受信するまで待機 */

$newSock->close();

}

#

# tcplisten.pl はここで終了します

#

# バージョン 1.00 2010年7月30日

# このスクリプトは以下でテスト済みです

# Open VOS 17.0.2ah を実行中、Perl v5.8.0 (i686-vos 向けにビルド済み)

# MicrosoftWindows Service Pack 3 が実行中

# ActiveState Perl v5.10.0 (MSWin32-x86-マルチスレッド用ビルド)

# Red HatLinux .5 を実行中

# Perl v5.8.5linux 向けにビルド済み

#

# [email protected]

#

use IO::Socket;

use IO::Select;

use Getopt::Long;

use strict;

my ($result);

my ($destIP, $destPort, $timeout, $result, $message, $flags);

my ($ready, $socket);

my ($x, $c, $icmpAlready);

$result = GetOptions('ip=s' => $destIP,

‘port=s’ => $destPort,

'timeout=s' => $timeout);

if (($result != 1) || !(defined($destIP) && defined($destPort)))

{

print "nn使用方法:n";

print "tperl tuc.pl -ip 宛先IPアドレス " .

「-ポート 宛先ポート番号nn」;

終了;

}

if (!defined($timeout)) { $timeout = 5; }

elsif ($timeout > 15) { print "OK, but " . $timeout .

”は不合理に長いように思える。n”; }

$message = "tuc.pl により送信されました。時刻: " . localtime();

my $sock = IO::Socket::INET->new(

Proto => ‘udp’

PeerPort => $destPort,

PeerAddr => $destIP

) または die “宛先 $destIP のソケットを作成できませんでした: $!n”;

my $isock = IO::Socket::INET->new(

Proto => 'icmp');

$sock->send($message) または die "送信エラー: $!n";

$message = "";

my $read_set = new IO::Select();

$read_set->add($sock);

$read_set->add($isock);

($ready) = IO::Select->select($read_set, undef, undef, $timeout);

$icmpAlready = 0;

$c = 0;

foreach $socket (@$ready)

{

$c = $c + 1;

if ($socket == $sock)

{

$x = "UDPソケットから受信した返信";

$socket->recv($message, 100, $flags);

if ($icmpAlready == 0)

{

if (length($message) > 0)

{ print $x . $socket->peerhost . ” message: ” . $message . “n”; }

else { print $x . $socket->peerhost . “n”; }

}

}

else # icmpメッセージ受信

{

$icmpAlready = 1;

$socket->recv($message, 100, $flags);

if (length($message) > 98)

{ print "予想外に長い (" . length($message) .

「」からのICMPメッセージ。$socket->peerhost

” message: ” . $message . “\n”; }

elsif (length ($message) < 52)

{ print "予想外に短い（" . length($message) .

") ICMPメッセージ送信元: " . $socket->peerhost . ""; }

else # ICMPメッセージを処理する

{

my $type = ord (substr ($message, 20, 1));

my $code = ord (substr ($message, 21, 1));

my $port = ord(substr($message, 50, 1)) * 256 +

ord(substr($message, 51, 1));

if ($port != $destPort)

{ print "予期しないICMPメッセージを受信しました。送信元は " .

$socket->peerhost . " メッセージ : " . substr($message, 20) .

“n”; }

それ以外の場合、# icmpメッセージは正常です

{

if ($type == 3)

{

if ($code == 0) { print "ICMP 宛先ネットワーク " .

「受信不能なメッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 1) { print "ICMP 宛先ホスト " .

「受信不能なメッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 3) { print "ICMP 宛先ポート " .

「受信不能なメッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 6) { print "ICMP 宛先ネットワーク " .

「不明なメッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 7) { print "ICMP 宛先ホスト不明 " .

「メッセージ受信元：」 . $socket->peerhost . 「n」; }

elsif ($code == 8) { print "ICMP 送信元ホストが隔離されました " .

「メッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 9) { print "ICMP Network administratively " .

「禁止されたメッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 10) { print "ICMP ホスト管理上利用不可" .

「禁止されたメッセージを受信しました」

$socket->peerhost . "n"; }

elsif ($code == 11) { print "ICMP ネットワーク到達不可: " .

「TOSメッセージ受信元」

$socket->peerhost . "n"; }

elsif ($code == 12) { print "ICMP ホスト到達不能: " .

「TOSメッセージ受信元」

$socket->peerhost . "n"; }

elsif ($code == 13) { print "ICMP 通信 " .

「管理上禁止されたメッセージを受信しました」

$socket->peerhost . "n"; }

else { print "予期しないICMPメッセージを受信しました タイプ = " .

$type . "、コード = " . $code . "、送信元 " .

$socket->peerhost . "n"; }

} # if ($type == 3)

elsif (($type == 11) & ($code == 0))

{ print "ICMP タイムアウト、TTL が転送中に期限切れ" .

「メッセージ受信元：」 . $socket->peerhost . 「n」; }

else { print "予期しないICMPメッセージを受信しました タイプ = " .

$type . "、コード = " . $code . "、送信元 " .

$socket->peerhost . "n"; }

} # それ以外の場合 # icmpメッセージは正常

} # それ以外の場合 # icmpメッセージを処理する

} # それ以外の場合 #ICMPメッセージ受信

} # foreach $socket (@$ready)

if ($c == 0) { print "応答が受信されませんでした。 " .

$sock->peerhost . "n"; }

#

# tuc.pl はここで終了します

#

# バージョン 1.00 2010年7月30日

# このスクリプトは以下でテスト済みです

# Open VOS 17.0.2ah を実行中、Perl v5.8.0 (i686-vos 向けにビルド済み)

# MicrosoftWindows Service Pack 3 が実行中

# ActiveState Perl v5.10.0 (MSWin32-x86-マルチスレッド用ビルド)

# Red HatLinux .5 を実行中

# Perl v5.8.5linux 向けにビルド済み

#

# [email protected]

#

use IO::Socket;

use IO::Select;

use Getopt::Long;

use strict;

my ($result);

my ($localPort, $debug, $result, $message, $flags);

my ($ready, $socket);

my ($x, $c);

$result = GetOptions('port=s' => $localPort,

'debug' => $debug);

if (($result != 1) || !(defined($localPort)))

{

print "nn使用方法:n";

print "tperl udpecho.pl -port LOCAL-PORT-NUMBER [-debug]nn";

終了;

}

if (defined($debug)) { print “local port number is ” . $localPort . “n”; }

my $sock = IO::Socket::INET->new(

Proto => ‘udp’

ローカルポート => $localPort

) または die “ソケット $!n を作成できませんでした”;

my $read_set = new IO::Select();

$read_set->add($sock);

$message = "";

while (1)

{

($ready) = IO::Select->select($read_set, undef, undef, 300);

foreach $socket (@$ready)

{

$socket->recv($message, 100, $flags);

if (defined ($debug)) { print "Message from " . $socket->peerhost .

” message: ” . $message . “\n”; }

$socket->send("udpecho.pl によるエコー: " . $message) or die "送信エラー: $!"

+n”;

}

}

#

# udpecho.pl はここで終了します