tokuhirom's Blog

AnyEvent::HTTP

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use 5.010000;

use AE;
use AnyEvent::HTTP;

my @urls = (
    'http://www.google.co.jp',
    'http://www.yahoo.co.jp',
);

local $AnyEvent::HTTP::MAX_PER_HOST = 5;

my $cv = AE::cv();
for my $url (@urls) {
    $cv->begin;
    http_get $url, sub {
        my $data = shift;
        print "##### $url #####\n" . $data . "\n";
        $finished++;
        $cv->end;
    };
}
$cv->recv;