perl - Perl LWP::UserAgent を使用すると、ポート 443 で応答を受け取りますが、ポート 8443 からではありません

Question

サーバーからの応答を確認するために LWP::UserAgent を使用しています。ポート 443 からは応答がありますが、ポート 8443 からは応答がありません。

Windows で cURL を使用すると、両方のポートから応答コードが返されます。

私を助けてください。

Answer 1

このサンプル プログラム (perldoc lwpcook から改作) は、別のポートに接続する方法を示しています。

また、問題を引き起こしている自作証明書がある場合に備えて、SSL検証をオフにすることもできます

#!/usr/bin/perl
$port = $ARGV[1] || 443;
$host = $ARGV[0] || 'pause.perl.org';
$verify =$ARGV[2] || 0;
use LWP::UserAgent;
$ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => $verify});;

#$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/8.0");    # pretend we are very capable browser

$req = HTTP::Request->new( GET => "https://$host:$port" );
$req->header( 'Accept' => 'text/html' );

# send request
$res = $ua->request($req);

# check the outcome
if ( $res->is_success ) {
    print $res->decoded_content;
}
else {
    print "Error: " . $res->status_line . "\n";
}