perlでhttpsアクセスができなくなったのを動作するように環境を直したい

Question

下記プログラムについて、過去5年位問題なく普通に動いていたのですがここ2ヶ月ほど動かなくなる事があり不安定でした。そこで、Perlモジュールなど様々なものをアップデートしていると完全にここでスクリプトが止まり動かなくなりました。SSL関連で失敗しているようなのですがどのようにすれば解決しますでしょうか？

環境
Windows 10 64bit
ActivePerl 5.22

	use WWW::Mechanize;
	my $ua = WWW::Mechanize->new( autocheck => 1 );
#	$ua->ssl_opts( verify_hostname => 0 );
	$ua->get("https://yahoo.jp/");
	my $source = $ua->content;
	open(F,">test.html");
	print F $source;
	close F;
	print $source;
```Error GETing https://yahoo.jp/: Can't connect to yahoo.jp:443 at D:\Programming\test.pl line 4.
と表示されプログラムが途中でストップします。

ちなみに、他のhttpsを使うスクリプトでは下記のようなエラーメッセージも表示されていました。
Error GETing https://github.com/: SSL upgrade failed: SSL connect attempt failed error:14090086:SSL routines:ssl3_get_server_certificate:certificate verify failed at testx.pl line 262.

なお、以下であれば期待通りの動作をします。
```perl
	use WWW::Mechanize;
	my $ua = WWW::Mechanize->new( autocheck => 1 );
	$ua->ssl_opts( verify_hostname => 0 );
	$ua->get("http://yahoo.jp/");
	my $source = $ua->content;
	open(F,">test.html");
	print F $source;
	close F;
	print $source;
```もしくは
```perl
	use WWW::Mechanize;
	my $ua = WWW::Mechanize->new( autocheck => 1 );
#	$ua->ssl_opts( verify_hostname => 0 );
	$ua->get("http://yahoo.jp/"); #httpでアクセスする
	my $source = $ua->content;
	open(F,">test.html");
	print F $source;
	close F;
	print $source;

Perl本体やモジュールがおかしいのか気になり、コードを以下に書き換え、strawberry-perl(Portable)と上記のActivePerlで試して見ました。それぞれ以下のエラーが表示されました。
なお、opensslは
Win64OpenSSL_Light-1_0_0e.exe
Win64OpenSSL-1_1_1g.exe
Win64OpenSSL_Light-1_1_1g.msi
をそれぞれ試してみましたが無理でした。

strawberry-perl(Portable)
Can't connect to yahoo.jp:443 (Bad file descriptor)
Bad file descriptor at C:/PortableApp/strawberry-perl-5.32.0.1-64bit-PDL/perl/vendor/lib/LWP/Protocol/http.pm line 50.

ActivePerl
Can't connect to yahoo.jp:443
Bad file descriptor at C:/Perl/site/lib/LWP/Protocol/http.pm line 46.

use strict;
#use Mozilla::CA;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
#$ua->ssl_opts( verify_hostname => 0 );
# $ua->ssl_opts( SSL_ca_file => Mozilla::CA::SSL_ca_file() );
my $url;
$url = "http://yahoo.jp/";
$url = "https://yahoo.jp/";
my $res = $ua->get($url);
my $source = $res->content;
open(F,">test.html");
print F $source;
close F;
print $source;

Comments

[KojiDoi]

「期待通りの動作」をしていることが確認できたコードがあるなら、それを使えばいいのでは？

[h5x]

回答いただきありがとうございます。

セキュリティーを無視していますので動作確認としては良いそうですが、通常利用では利用は好ましくないらしいのです。

また、様々な過去のスクリプト全てを書き換えるのは現実的ではなく環境を使えるものにしたく思っています。

Answer 1

あてずっぽうになってしまいますが、以下を最新のものにしてみてはいかがでしょうか。

Mozilla::CA
LWP::UserAgent
LWP::Protocol::https

Answer 2

手元では再現できないのであてずっぽうですが…。

このエラーは証明書の検証に失敗したために出ていると思いますが、証明書を含んでいるMozilla::CAモジュールは新しすぎてもうまく行かなくなる場合もあるようです。「様々なものをアップデートすると動かなくなった」ということなのでこれがヒットしているのかもしれません。

https://www.perlmonks.org/?node_id=1118455

Mozilla::CAモジュールを元のバージョンに戻してみてはどうでしょうか?

Comments

[h5x]

回答いただきありがとうございます。

過去のシステムバックアップ、
https://curl.haxx.se/docs/caextract.html
からcacert.pemを色々更新してみましたが残念ながらどれで行っても同じエラーがでました。

正直、これが何をしているのかよくわかっていない状況なのですが、

$ua->ssl_opts( verify_hostname => 0 );

を入れた状態で運用するとまずいでしょうかね？

[h5x]

ちなみに、以下コードを挿入すると確実に利用できるという話をネットで見かけ利用しましたが同じ状況でした。
use Mozilla::CA;
$ua->ssl_opts( SSL_ca_file => Mozilla::CA::SSL_ca_file() );