Perl 在方法名称中找到无效字符。HTTP方法名称必须是令牌，即使使用HTTP请求也会持续存在

我正在尝试预热我的控制器，以便在每次部署期间使服务变热

为此，我编写了一个perl脚本，如下所示：

#！perl
严格使用；
使用警告；
使用WWW：：Mechanize；
使用HTTP：：请求；
my$ua=WWW:：Mechanize->new（）；
我的$r=HTTP:：请求->新建(
“获取”=>
'http://gaurav_setia.microsoft.com:8080/b2h/homepage?_encoding=UTF8&opf_redir=1&portalDebug=1',
[
“连接”=>“保持活动状态”，
'通过'=>'HTTP/1.1 ShoppingSchedule'，
“接受”=>
'text/x-html-parts，text/html，application/xhtml+xml，application/xml；q=0.9，image/webp，image/apng，*/*；q=0.8'，
'接受字符集'=>'UTF-8'，
“接受编码”=>“标识”，
“接受语言”=>“en US”，
“主机”=>“gaurav_setia.microsoft.com”，
“用户代理”=>
“Mozilla/5.0（Macintosh；英特尔Mac OS X 10_12_6）AppleWebKit/537.36（KHTML，类似Gecko）Chrome/71.0.3578.80 Safari/537.36”，
“Cookie”=>
'原件-X-Forwarded-For'=>'10.45.103.166'，
“X-MS-Internal-Ip-Class”=>“rfc1918”，
“X-MS-Internal-Via”=>
“1.1 us-beta-opf-1a-1-67440dc2.us-east-1.ms.com（opf）”，
“X-MS-Urlspace”=>“NoPageType”，
'X-MS-Portal-Customer-Id'=>'AMY4OD2PMM9T31'，
'X-MS-Portal-Default-Merchant-Id'=>'BTLPDKIKX0DE41'，
'X-MS-Portal-Device-Attr'=>'desktop'，
“X-MS-Portal-Language”=>“en_US”，
“X-MS-Portal-Marketplace-Id”=>“ATVPDKIKX0DER”，
“X-MS-Portal-Page-Type”=>“AQGate”，
“X-MS-Portal-Request-Attr'=>“内部，http，门户调试”，
“X-MS-Portal-Session-Id”=>“1M0-493PO66-0596753”，
‘X-MS-Portal-Ubid’=>‘1P2-465OP632-8831161’，
“X-MS-Portal-User-Attr”=>“业务”，
‘X-MS-Rid’=>‘G308MPK95BWTA69EY2MW’，
'X-Forwarded-For'=>'10.45.101.126'，
“X-Forwarded-Host”=>“development.ms.com”，
“X-转发服务器”=>
“development.ms.com，b-hp-shpomnpng-na-2b-02af3555.us-west-2.amazon.com”，
'X-Original-Args'=>'portalDebug=1'，
“X原始方法”=>“获取”，
“X-Original-Scheme”=>“http”，
'X-Original-Uri'=>'/'，
],
);
我的$res=$ua->request（$r，）；
如果（$res->is_success（））
{
打印$response->is_success（）；
}
打印$response->status\u行在一堆标题中，您有以下内容：

'User-Agent' =>
'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_12_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.80 Safari/537.36',
'Cookie' =>
'Original-X-Forwarded-For'   => '10.45.103.166',

请注意，
Cookie
头没有值。这意味着之后的所有标题都将是错误的（名称和值将混淆）

完全删除
Cookie
行，或将其值设置为
undef

'Cookie' => undef,

（删除它可能是最好的）
看起来像你而不是
=>
你需要
，
在
HTTP:：Request->new
@talex:
=>
和
中获得
后，做同样的事情<代码>=>
是一个“胖逗号”。这不是问题所在。