Perl이 옵션 인 경우 해당 IO::Socket
모듈을 사용 하여 특정 호스트 및 포트에 대한 연결을 테스트 할 수 있습니다 . 아래 스크립트는 TCP를 프로토콜로 하드 코딩합니다 (telnet이 사용하는 것입니다).
#!/usr/bin/perl -w
# tries to connect to the given IP and port (tcp)
use strict;
use IO::Socket;
my $desthost = shift or die "Usage: $0 host port\n";
my $destport = shift or die "Usage: $0 host port\n";
gethostbyname($desthost) || die "Invalid host given\n";
my $handle = IO::Socket::INET->new(
PeerAddr => $desthost,
PeerPort => $destport,
Proto => 'tcp')
or die "can't connect to $desthost:$destport: $!\n";
close $handle;
print "Success!\n"
닫힌 포트의 샘플 출력 :
$ ./above-script kafka02 6667
can't connect to kafka02:6667: Connection refused
열린 포트에서 샘플 출력 :
$ ./above-script kafka02 4200
Success!