2019年4月7日 星期日

perl 如何解決https 和 需要預設流覽器 問題

perl -MCPAN -e shell
cpan[1]>install  LWP::Protocol::connect

or
cpan[1]> install LWP::Protocol::https


##########################################################################

#!/usr/bin/perl

use LWP::UserAgent;
use HTML::TokeParser;


my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
#如果出現Can't connect to flora2.epa.gov.tw:443 (certificate verify failed)
#
#SSL connect attempt failed error:14090086:SSL #routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at /usr/local/share/perl5/LWP/Protocol/http.pm line 47.

#類似這類的訊息,則改為verify_hostname =>0

$ua->agent("Mozilla/4.0 (compatible; MSIE 5.12; Mac_PowerPC)");
my $res = $ua->get("https://example.com");

my $stream = HTML::TokeParser->new(\$res->decoded_content);
...
...
...

##########################################################################
可以參考 https://blog.51cto.com/flyingsnail/989998