【Perl】ポートが空いているかどうかを調べるワンライナー

投稿日: / 更新日:

「あるサーバの特定のポートが空いているかどうかを今すぐに調査したいけど、nmapもtelnetも使えない…(がPerlは使える!)」という状況で、とっさに使えるワンライナーです。

2013/09/09 追記: 一部環境に対して、開いていないポートへリクエストした場合に無限に待ち続けてしまうことがあるため、コネクションタイムアウト(5秒)の設定を追加しました。

使用例は以下のとおりです。

少々長くて使いにくい…という場合は、以下のように、ダブルクォートをクォート風演算子に変更したうえで、ワンライナー全体をダブルクォートで囲めば、bash等のaliasとして登録することも可能です。

ちなみに、IO::Socket::INETは、Perl 5.6からコアモジュールとなっているため、最近のPerlなら、特にこのモジュールを追加でインストールする必要もありません。

以上、簡単ですがPerlに関する話題をご紹介しました。

最新情報発信中

Twitterやメルマガでも、Hinemosの保守、
開発、導入、構築やカスタマイズ等の
お役立ち情報を発信しています。
是非ご登録ください。