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