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) {
{{#tags}}- {{label}}
{{/tags}}