perlでPortのチェックをするメモ

ncがインストールされていないけど、perlは使えると言う環境で、特定のPortにアクセスできるかチェックしたいときのメモ

perl -mIO::Socket::INET -le 'exit(IO::Socket::INET->new(PeerAddr=>shift,PeerPort=>shift,Proto=>shift,Timeout=>5)?0:1)' <host> <port>

つながる場合は終了コードが0で、つながらない場合は1を返す。