Changeset 8c96802 in lab.git for misc

Timestamp:

Mar 6, 2014 3:40:19 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

45d3453

Parents:

560dfd2

Message:

use LWP::UserAgent instead of LWP::Simple

• LWP::Simple does not support verify_hostname option
  • {verify_hostname => 0} enables access to ​https://192.168...

File:

• misc/httpbench.pl (modified) (3 diffs)

misc/httpbench.pl

@@ -7 +7 @@
 use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);
 use Parallel::ForkManager;
-use LWP::Simple;
+use LWP::UserAgent;
 use Time::HiRes qw(sleep gettimeofday);
 
@@ -34 +34 @@
 warn "wait for $wait second between requests\n" if ($wait);
 
-
+my $ua = LWP::UserAgent->new(
+    ssl_opts => { verify_hostname => 0 },
+);
 my $transfer = 0;
 my $pm = Parallel::ForkManager->new($concurrency);
@@ -58 +60 @@
                 print STDERR "processing $i/$loops loop\r";
                 foreach my $url (@urls) {
-                    my $res = get($url) or print STDERR "\nfail: $url";
-                    if ($res) {
-                        $transfer += length($res);
+                    my $res = $ua->get($url);
+                    if ($res->is_success) {
+                        $transfer += length($res->content);
+                    }
+                    else {
+                        print STDERR "\nfail: $url";
                     }
                     sleep($wait);