目的 † 元々はメール配送システムを作ろうとしていた。 そのシステムでは複数の宛先へのメール配送を1通毎に並列にやりたかったし、 スレッドが無限に増えてしまってもリソースを消費しすぎて困るのでそれを制限したかった。 また、相手サーバの事情によっては纏めて数万通とか出すと怒られるときがあるのでメールの配送ペースも調整したかった。 以上がマルチスレッドプログラミングを勉強する目的だった。 ↑ ソース † 上記条件を満たすサンプルが出来たのでメモ。 ダウンロードも出来るようにしておく。 このソースには無駄なコードや、こうした方が良かったとか思うところがいっぱいあるんだが修正するのが面倒い…。 参考にする方は、とりあえず参考にするだけして、自分で色々試して良いと思った方法をとったほうが良いです ithread_test.pl #!/usr/bin/perl use strict; use thre