네트워크 연결 테스트 – 핑에 대한 대안

#

# 버전 1.00 10-07-30

# 이 스크립트는

# 오픈 VOS 17.0.2ah 실행 펄 v5.8.0 i686-vos에 대 한 내장

# 마이크로 소프트 윈도우 XP 서비스 팩 3 실행

# MSWin32-x86 멀티 스레드를 위해 제작된 액티브스테이트 펄 v5.10.0

# 레드 햇 리눅스 4AS-5.5 실행

# 펄 v5.8.5 x86_64 리눅스 스레드 멀티내장

#

# [email protected]

#

IO 사용::소켓;

Getopt 사용::긴;

Sys::Hostname;

엄격한 사용;

내 ($result);

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

내 ($newSock, $data);

$result = GetOptions('포트='의' => $localPort,

'메시지=의' => $message);

(($result != 1) || 정의($localPort))

{

인쇄 "nnUse:n";

인쇄 "tperl tcplisten.pl -포트 번호 [메시지 메시지]nn";

종료;

}

(!정의($message))

{

"지정된 메시지 없음 – 메시지 생성"을 인쇄합니다.

$message = "tcplisten에 실행에 의해 허용 된 연결" . 호스트 이름;

}

"펄 tcplisten.pl -포트 $localPort -메시지 '"를 인쇄합니다. $message . "'n";

내 $sock = IO::소켓::INET->신규(

프로토 => 'tcp',

로컬포트 => $localPort,

로컬애더 => '0.0.0.0',

듣기 => 1,

) 또는 죽는 "포트 $localPort 대한 소켓을 만들 수 없습니다 : $!n";

동안 (1)

{

내 $newSock = $sock->수락 ();

인쇄 "연결에서 허용" . $newSock->피어호스트 .

" 현지 시간 () . "n";

인쇄 $newSock $message. "n";

$newSock -> 종료(2);

$sock->읽기($data, 1024); # 가까운 표시를 얻기 위해 기다립니다 */

$newSock->닫기();

}

#

# tcplisten.pl 여기서 끝납니다.

#

# 버전 1.00 10-07-30

# 이 스크립트는

# 오픈 VOS 17.0.2ah 실행 펄 v5.8.0 i686-vos에 대 한 내장

# 마이크로 소프트 윈도우 XP 서비스 팩 3 실행

# MSWin32-x86 멀티 스레드를 위해 제작된 액티브스테이트 펄 v5.10.0

# 레드 햇 리눅스 4AS-5.5 실행

# 펄 v5.8.5 x86_64 리눅스 스레드 멀티내장

#

# [email protected]

#

IO 사용::소켓;

IO 사용::선택;

Getopt 사용::긴;

엄격한 사용;

내 ($result);

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

내 ($ready, $socket);

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

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

'포트=s' => $destPort,

'시간 시간 =의' => $timeout);

(($result != 1) || 정의($destIP) 및 정의($destPort))

{

인쇄 "nnUse:n";

인쇄 "tperl tuc.pl -ip 대상 IP 주소" .

"포트 목적지-포트-눔베인";

종료;

}

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

엘시프 ($timeout > 15) { 인쇄 "OK,하지만" . $timeout .

"비합리적으로 긴 것 같다"; }

$message = "에서 tuc.pl 의해 전송 " . 현지 시간 ();

내 $sock = IO::소켓::INET->신규(

프로토 => 'udp',

피어포트 => $destPort,

피어애르 => $destIP

) 또는 죽는 "목적지 $destIP 대한 소켓을 만들 수 없습니다 : $!n";

내 $isock = IO::소켓::INET->신규(

프로토 => 'icmp');

$sock->보내기($message) 또는 죽는 "오류 보내기: $!n";

$message = "";

내 $read_set = 새 IO::선택();

$read_set->추가($sock);

$read_set->추가($isock);

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

$icmpAlready = 0;

$c = 0;

$socket (@$ready)

{

$c = $c + 1;

($socket == $sock)

{

$x = "UDP 소켓에서 받은 회신";

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

($icmpAlready == 0)

{

(길이($message) > 0)

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

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

}

}

다른 # icmp 메시지가 수신

{

$icmpAlready = 1;

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

(길이($message) > 98)

{ 인쇄 "예기치 않게 긴 (". 길이 ($message) .

") "에서 ICMP 메시지 " $socket->피어호스트 .

" 메시지 : " $message . "n"; }

elsif (length ($message) < 52)

{ 인쇄 "exexpecedly 짧은 (" . 길이 ($message) .

") "에서 ICMP 메시지 " $socket->피어호스트 . "n"; }

다른 # 프로세스 icmp 메시지

{

내 $type = 성(서브스트 ($message, 20, 1));

내 $code = 성(서브스트 ($message, 21, 1));

내 $port = 성 (substr ($message, 50, 1)) * 256 +

오드 (서브스트스트 ($message, 51, 1));

($port != $destPort)

{ 인쇄 "예기치 않은 ICMP 메시지에서 받은" .

$socket->피어호스트 . " 메시지 : " 서브스트 ($message, 20) .

"n"; }

다른 # icmp 메시지는 좋다

{

($type == 3)

{

($code == 0) { 인쇄 "ICMP 대상 네트워크" .

"에서 받은 도달 할 수없는 메시지 "

$socket->피어호스트 . "n"; }

elsif ($code == 1) { 인쇄 "ICMP 대상 호스트" .

"에서 받은 도달 할 수없는 메시지 "

$socket->피어호스트 . "n"; }

elsif ($code == 3) { 인쇄 "ICMP 대상 포트" .

"에서 받은 도달 할 수없는 메시지 "

$socket->피어호스트 . "n"; }

elsif ($code == 6) { 인쇄 "ICMP 대상 네트워크" .

"알 수 없는 메시지로부터 수신 " .

$socket->피어호스트 . "n"; }

elsif ($code == 7) { 인쇄 "ICMP 대상 호스트 알 수없는" .

"로부터 받은 메시지 " $socket->피어호스트 . "n"; }

elsif ($code == 8) { 인쇄 "ICMP 소스 호스트 격리" .

"로부터 받은 메시지 "

$socket->피어호스트 . "n"; }

elsif ($code == 9) { 인쇄 "ICMP 네트워크 관리적으로" .

"로부터 수신 금지 된 메시지 " .

$socket->피어호스트 . "n"; }

elsif ($code == 10) { 인쇄 "ICMP 호스트 관리" .

"로부터 수신 금지 된 메시지 " .

$socket->피어호스트 . "n"; }

elsif ($code == 11) { 인쇄 "ICMP 네트워크에 연결할 수 없습니다" .

"에서 받은 TOS 메시지 "

$socket->피어호스트 . "n"; }

elsif ($code == 12) { 인쇄 "ICMP 호스트에 도달 할 수 없습니다" .

"에서 받은 TOS 메시지 "

$socket->피어호스트 . "n"; }

elsif ($code == 13) { 인쇄 "ICMP 통신" .

"행정금지 메시지로부터 수신 "

$socket->피어호스트 . "n"; }

기타 { 인쇄 "예기치 않은 ICMP 메시지가 받은 유형 = "

$type . ", 코드 = " $code . " 에서 " .

$socket->피어호스트 . "n"; }

} #if ($type == 3)

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

{ 인쇄 "ICMP 시간을 초과, TTL은 전송 만료 " .

"로부터 받은 메시지 " $socket->피어호스트 . "n"; }

기타 { 인쇄 "예기치 않은 ICMP 메시지가 받은 유형 = "

$type . ", 코드 = " $code . " 에서 " .

$socket->피어호스트 . "n"; }

} # 다른 # icmp 메시지는 좋다

} 다른 # 프로세스 icmp 메시지

} # 다른 #icmp 메시지가 수신

} # 포지엄 $socket (@$ready)

($c == 0) { 인쇄 "응답이 수신되지 않은 경우" .

$sock->피어호스트 . "n"; }

#

# tuc.pl 여기서 끝납니다.

#

# 버전 1.00 10-07-30

# 이 스크립트는

# 오픈 VOS 17.0.2ah 실행 펄 v5.8.0 i686-vos에 대 한 내장

# 마이크로 소프트 윈도우 XP 서비스 팩 3 실행

# MSWin32-x86 멀티 스레드를 위해 제작된 액티브스테이트 펄 v5.10.0

# 레드 햇 리눅스 4AS-5.5 실행

# 펄 v5.8.5 x86_64 리눅스 스레드 멀티내장

#

# [email protected]

#

IO 사용::소켓;

IO 사용::선택;

Getopt 사용::긴;

엄격한 사용;

내 ($result);

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

내 ($ready, $socket);

내 ($x, $c);

$result = GetOptions('포트='의' => $localPort,

'디버그' => $debug);

(($result != 1) || 정의($localPort))

{

인쇄 "nnUse:n";

인쇄 "tperl udpecho.pl -포트 로컬 포트 번호 [디버그]nn";

종료;

}

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

내 $sock = IO::소켓::INET->신규(

프로토 => 'udp',

로컬포트 => $localPort

) 또는 죽는 "소켓을 만들 수 없습니다 $!n";

내 $read_set = 새 IO::선택();

$read_set->추가($sock);

$message = "";

동안 (1)

{

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

$socket (@$ready)

{

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

(정의($debug)) { 인쇄 "메시지" $socket > 피어호스트.

" 메시지 : " $message . "n"; }

$socket->보내기("udpecho.pl 메아리: " $message) 또는 죽는 "오류 보내기: $!

+n";

}

}

#

# udpecho.pl 여기서 끝납니다.