rich_d_thomas has asked for the wisdom of the Perl Monks concerning the following question:
This is the result I get:#!/usr/bin/perl use constant VERSION => "v1.06"; use strict; use warnings; use IO::Socket::SSL; use LWP; use LWP::UserAgent; use LWP::Debug; use WWW::Mechanize; LWP::Debug::trace('()'); $| = 1; # perform flush after each write to STDOUT my $url="https://customer.bookingbug.com"; my $initial_user_agent = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_ +3) AppleWebKit/534.53.11 (KHTML, like Gecko) Version/5.1.3 Safari/534 +.53.10'; my $mech; $mech=WWW::Mechanize->new( agent => $initial_user_agent, ); $mech->add_handler("request_send", sub { shift->dump; return }); $mech->get( $url ); printf($mech->content)
./s.pl GET https://customer.bookingbug.com Accept-Encoding: gzip User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit +/534.53.11 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10 (no content) Error GETing https://customer.bookingbug.com: Can't connect to custome +r.bookingbug.com:443 (LWP::Protocol::https::Socket: SSL connect attem +pt failed with unknown errorerror:140770FC:SSL routines:SSL23_GET_SER +VER_HELLO:unknown protocol) at ./s.pl line 35.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Unable to use WWW-Mechanize
by hippo (Archbishop) on Jul 03, 2020 at 08:35 UTC | |
by rich_d_thomas (Sexton) on Jul 03, 2020 at 08:52 UTC | |
|
Re: Unable to use WWW-Mechanize
by marto (Cardinal) on Jul 03, 2020 at 08:31 UTC |