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