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