[perl] 포트 체크 하기

check.pl

require 5; use strict; require IO::Socket; ### Parse the command line options ### my $machine = $ARGV[0]; my $port = $ARGV[1]; my $timeout = $ARGV[2]; my $proto = "tcp"; my $socket = IO::Socket::INET->new(PeerAddr => $machine,                                PeerPort => $port,                                Proto => $proto,                        Timeout => $timeout                ); if ($socket) {     print "Server ",$machine," port ",$port," active\n";     print "up\n"; } else {     print "down\n"; }

파일 생성 후 아래 명령 형식으로 확인 가능합니다.

# perl check.pl 아이피 포트 타임아웃

# /usr/bin/perl check.pl $ip $port 0.001    // 이렇게하면 php 웹소스에서 사용 가능