---
title: perlでPortのチェックをするメモ
tags: ["perl"]
categories: ["Dev", "perl"]
date: 2021-01-04T04:34:45Z
updated: 2021-01-04T04:34:45Z
---

`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`を返す。