AnyEvent-HTTP

#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::HTTP;
my $cv = AnyEvent->condvar;
sub done {
    print $_[1]->{server}, "\n";
    $cv->end;
}
my @url = ("http://www.microsoft.com/","http://www.apple.com/","http://www.google.co.jp/");
$cv->begin; http_get($url[0], \&done);
$cv->begin; http_get($url[1], \&done);
$cv->begin; http_get($url[2], \&done);
$cv->recv;
Apache/2.2.3 (Oracle)
gws
Microsoft-IIS/7.5

参考

http://search.cpan.org/dist/AnyEvent-HTTP/


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2012-03-07 (水) 17:33:08 (2470d)