NEW ARTICLE
Google ドキュメント 検索を行うショートカットキー
  1. HOME
  2. perl
  3. perlを使ってポートがopenになっているかを確認する

perlを使ってポートがopenになっているかを確認する

perlを使ってポートがopenになっているかを確認する

perlを使ってポートがopenになっているかを確認する手順を記述してます。

目次

環境

  • OS Ubuntu 21.10 (Impish Indri)
  • Redis 6.2.6
  • Perl 5.32.1

手順

「IO::Socket::INET」を使用して、作成します。

perl -mIO::Socket::INET -le 
'print IO::Socket::INET->new(PeerAddr=>shift,PeerPort=>shift,Proto=>shift,Timeout=>5)?"open":"close"' 
ホスト名 ポート番号 tcp or udp

実際に、tcpでポート「6379」が開いているかを確認してみます。

$ perl -mIO::Socket::INET -le 'print IO::Socket::INET->new(PeerAddr=>shift,PeerPort=>shift,Proto=>shift,Timeout=>5)?"open":"close"' localhost 6379 tcp

open

「open」となっているので開いていることが確認できます。