Perl LWP試圖將peer_http_version設置為HTTP / 1.0

Question

嘗試使用perl LWP嘗試連接到Microsoft-HTTPAPI / 2.0服務器時遇到500服務器錯誤。 可以使用瀏覽器成功連接。 我看到的唯一區別是瀏覽器問題HTTP / 1.0協議與LWP HTTP / 1.1。 因此，我試圖強迫LWP使用較舊的協議而沒有成功。 我找到了設置此協議的示例，但使用Wireshark進行數據包檢查仍顯示HTTP / 1.1。 我在這里錯過了什么。 使用Active Perl v5.16.1。

#! C:\Perl64\bin\perl.exe
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
my $ua = new LWP::UserAgent(keep_alive=>1);
# trying to force HTTP/1.0
push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, PeerHTTPVersion => "1.0");
my $response = $ua->request(GET "http://google.com");

Answer 1

這將使LWP指定HTTP / 1.0。

my $request = GET "http://google.com";
$request->protocol('HTTP/1.0');
my $response = $ua->request($request);