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」となっているので開いていることが確認できます。
-
前の記事
GitKrakenでFetchを実行する 2022.01.15
-
次の記事
javascript lodashを使って配列データを任意のタイミングで順番に抽出する 2022.01.16
コメントを書く