ログをたくさん残すクローラ
いつの間にか、hatenaでソースが見やすくなっていた。
#!/usr/bin/perl use AnyEvent::HTTP; while(1){ my $c=AnyEvent->condvar; for (0..9999){ $c->begin;http_get($ARGV[0],sub{$c->end;});} $c->recv;}
いつの間にか、hatenaでソースが見やすくなっていた。
#!/usr/bin/perl use AnyEvent::HTTP; while(1){ my $c=AnyEvent->condvar; for (0..9999){ $c->begin;http_get($ARGV[0],sub{$c->end;});} $c->recv;}