I have just built a simple test script.
Maybe you have to run this script several times and you will notice that it
hangs forever at some point.
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Mojo::UserAgent;
use Mojo::Util 'steady_time';
while(<DATA>) {
chomp;
next unless length;
my $p = "http://$_";;
say $p;
my $ua = Mojo::UserAgent->new;
$ua->proxy->http($p)->https($p);
my $t = steady_time;
my $tx = $ua->get('https://www.google.com');
$t = sprintf('%.3fs', steady_time - $t);
if($tx->success) {
say "ok: ", $tx->res->code;
} else {
say "fail: ", ($tx->error->{message} // '-');
}
say "time: $t\n";
}
__DATA__
190.102.28.40:80
61.150.76.205:808
60.251.152.85:80
218.92.227.165:17945
183.223.29.120:8123
163.125.207.112:9999
--
You received this message because you are subscribed to the Google Groups
"Mojolicious" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/mojolicious.
For more options, visit https://groups.google.com/d/optout.
