使用Perl LWP :: UserAgent我在端口443上获得响应，但不从端口8443获得响应

Question

我正在使用LWP :: UserAgent来检查来自服务器的响应。我从端口443得到响应，但我无法从端口8443得到任何响应。

当我使用cURL for Windows时，我从两个端口获得响应代码。

请帮帮我。

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";
}