Skip to content

Instantly share code, notes, and snippets.

@western

western/get_some_url_async.pl

Created February 27, 2017 10:58
Show Gist options
  • Save western/fd16a46e2af56ae2dd66f53a714d2fec to your computer and use it in GitHub Desktop.
Save western/fd16a46e2af56ae2dd66f53a714d2fec to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. western created this gist Feb 27, 2017.
    41 changes: 41 additions & 0 deletions get_some_url_async.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,41 @@
    use strict;
    use warnings;
    use Data::Dumper;

    use Time::HiRes;
    use AnyEvent;
    use AnyEvent::HTTP;


    my @list = (
    'https://www.kleos.ru/',
    'https://news.gnezdo.ru/',
    'https://shop.gnezdo.ru/',
    'https://www.gnezdo.ru/',
    );

    my $time_info = {};
    my $time_start = Time::HiRes::time();

    my $cv = AnyEvent->condvar;

    for my $url(@list){


    print "get url [$url]\n";

    $cv->begin;

    http_get $url, sub{
    my ($html) = @_;

    $time_info->{$url} = Time::HiRes::time()-$time_start;

    $cv->end;
    };
    }


    $cv->recv;

    print Dumper($time_info);