* AnyEvent-HTTP [#da15f147]

 #!/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

** 参考 [#dc7ff4c9]
http://search.cpan.org/dist/AnyEvent-HTTP/



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