サーバのテストをするときなどに未使用のポートを使ってテストコードを走らせたい、というときがあって、PerlだとTest::TCPにempty_portというのがあって簡単に取得出来る。 $ perl -MTest::TCP -E 'say Test::TCP::empty_port' 10256引数を与えない場合は毎…