为什么LWP :: UserAgent成功而Mojo :: UserAgent失败?

时间:2018-08-13 20:12:51

标签: perl http

如果我这样请求:

my $mojo_ua = Mojo::UserAgent->new->max_redirects(5);

$mojo_ua->inactivity_timeout(60)->connect_timeout(60)->request_timeout(60);;
$mojo_ua->transactor->name('Mozilla/5.0 (Macintosh; Intel Mac OS X 10_13_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.181 Safari/537.36');

my $headers = {
           'Accept' => 'application/json',
           'Accept-Language' => 'en-US,en;q=0.5',
           'Connection' => 'keep-alive',
           'User-Agent' => 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_13_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.181 Safari/537.36',
           'x-csrf-token' => 'Fetch',
           'Accept-Encoding' => 'gzip, deflate, br',
           'DataServiceVersion' => '2.0',
           'MaxDataServiceVersion' => '2.0',
           'Referer' => 'https://blah.blas.com/someThing.someThing'
         };

my $url = Mojo::URL->new('https://blah.blah.com/irj/go/sap/FOO_BAR_BAZ/');

my $tx = $mojo_ua->get($url, $headers);
$tx = $mojo_ua->start($tx);
my $res = $tx->result;

请求超时,但是如果我接受完全相同的请求,则以相同的方式构建并执行以下操作:

my $lwp_ua = LWP::UserAgent->new;

my $req = HTTP::Request->parse( $tx->req->to_string );
$req->uri("$url");
my $res = $lwp_ua->request($req);

成功。

在少数情况下,Mojo :: UserAgent失败了,而LWP :: UserAgent完全相同的事务成功了,我开始感到好奇了。

对为什么有任何想法吗?

1 个答案:

答案 0 :(得分:3)

您的呼叫

$mojo_ua->get($url, $headers)

已经发送了HTTP请求并从服务器接收了响应,错误或超时。您无需致电

$mojo_ua->start($tx)

也是如此,该语句也应删除

如果您真的要先构建事务,然后start,则需要

my $tx = $mojo_ua->build_tx(GET => $url, $headers);
$tx    = $mojo_ua->start($tx);

但是我看不出您为什么需要这样做的任何原因