1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
use v5.10; use Mojo::IOLoop; use Mojo::Useragent; use Mojo::Util qw(dumper); my @urls = (); while (<DATA>) { chomp; push(@urls, $_); } my $ua = Mojo::UserAgent->new; Mojo::IOLoop->delay( sub { my $delay = shift; $ua->get($_ => $delay->begin) for @urls; }, sub { my $delay = shift; say $_->res->dom->at('title')->text for @_; } )->wait if @urls; say("All DONE"); __DATA__ https://www.google.com http://mojolicio.us
You can clone a snippet to your computer for local editing. Learn more.