id:ablaboさんがParallel::ForkManager使ってなんかやってるんで、自分はthreads使ってみた。*1 いろいろあってオリジナルとおなじじゃなかったりちょいダサだったりしますが気にしないで。 use strict; use threads; use threads::shared; use Data::Dumper; use LWP::UserAgent; my @global_status; share(@global_status); #これポイント my @urls = qw(http://blog.livedoor.jp/dankogai/ http://d.hatena.ne.jp/ablabo/ http://d.hatena.ne.jp/onishi/); my @threads; my $id = 0; for my $url (@urls) {

