Ошибка слишком многих строк заголовка в Perl

Question

Я написал простой код Perl:

use HTTP::Request::Common qw(POST);
use strict;                                                               
use warnings;                                                               
use LWP;
my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
my $res = $ua->get('http://60606.com/members/search',Cookie => 'incomerr_refid=0; ff_language_id=3; _t_=1; fcode2=4139; ss_time=1527663671; PHPSESSID=otfmog35f0iva0uld1rgld2kj7; _webpush_key_=none; dinged_id=1412807; _language_id=3; _gnum_=950212; refid=1; first_key=TOCz19ls8HfkFW6LoBrIj35p4xSyYPVE; last_valid_url=https%3A//60606.com/login; ping_last=1527663675.939');
print $res->content;

, но когда я запускаю его, я получаю эту ошибку:

Too many header lines (limit is 128) at C:/Perl64/lib/Net/HTTP/Methods.pm line 377

Скажите, пожалуйста, почему я получаю эту ошибку, я думаю, что этодля формата печенья

Answer 1

Скажите, пожалуйста, почему я получаю эту ошибку, я думаю, что это для формата cookie

Ошибка говорит о количестве строк в заголовке.Это не относится к заголовку cookie, так как это только одна строка.

Место, в котором Net :: HTTP :: Methods жалуется, равно , когда он читает заголовок входящего ответалинии .Эти по умолчанию установлены на 128 , но это можно изменить с помощью аргумента.

Однако я еще не нашел способ ввести другое значение.Я воспроизвел проблему автономно, хотя.

$ perl -Mojo -E \
 'a(sub ($c) { $c->res->headers->header("X-$_" => $_) for 1..128; $c->render(text => "Hello") })->start' \
  daemon

Это даст вам сервер на localhost: 3000, который отвечает множеством строк заголовка.Если вы ответите, возникнет та же проблема.

my $res = $ua->get('http://localhost:3000/');

К сожалению, это не очень нам помогает.