- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- Perl/イベント駆動/AnyEvent-HTTP へ行く。
- 1 (2012-03-06 (火) 19:25:25)
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
参考
