use Mojo::UserAgent;
use Mojo::IOLoop;
my @url = qw{ http://example.com http://perlmonks.org };
my $ua = Mojo::UserAgent->new;
Mojo::IOLoop->delay(
sub {
my $delay = shift;
$ua->get($_ => $delay->begin) foreach @url
},
sub {
my ($delay, @tx) = @_;
print "'", $_->req->url,
"' => '", $_->res->text,
"'\n"
foreach @tx;
}
)->wait;
####
'http://perlmonks.org' => ' ' .......',
####
use Mojo::UserAgent;
use Mojo::IOLoop;
my @url = qw( http://perlmonks.org http://example.com );
my $ua = Mojo::UserAgent->new;
$ua->get( $_ => sub {
my( $ua, $tx ) = @_;
print "'", $tx->req->url,
"' => '", $tx->res->text,
"'\n";
} ) foreach @url;
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;