次のリダイレクトからWWW :: Mechanizeを維持するにはどうすればよいですか？

Question

WWW::Mechanizeを使用してファイルから読み込み、Webサイトでいくつかの自動化されたタスクを実行するPerlスクリプトがあります。ただし、特定のページをリクエストするたびに302リダイレクトが使用されます。私はリダイレクトしたくありません（リダイレクトするページの応答時間が長すぎます）。私はちょうどファイルをループし、最初のリンクを繰り返し呼び出す必要があります。私はWWW :: Mechanizeをリダイレクトに従わないようにする方法を理解できません。助言がありますか？

Answer 1

WWW::MechanizeはLWP::UserAgentのサブクラスです。だから、あなたはどんなLWP::UserAgentの方法も使うことができます。

my $mech = WWW::Mechanize->new(); 
$mech->requests_redirectable([]); 

Answer 2

WWW :: Mechanizeは、LWP :: UserAgentのサブクラスです。 LWP :: UserAgentと同じようにコンストラクタのmax_redirectオプションまたはrequests_redirectableオプションを設定できます。

Answer 3

あなたは、この例のように$剤 - > max_redirect（0）;,使用することができます。

#!/usr/bin/perl -w 
use strict; 

use WWW::Mechanize; 

my $agent = WWW::Mechanize->new('autocheck' => 1, 'onerror' => undef,); 
$agent->max_redirect(0); 
$agent->get('http://www.depesz.com/test/redirect'); 
printf("Got HTTP/%s from %s.\n", $agent->response->code, $agent->uri); 

$agent->max_redirect(1); 
$agent->get('http://www.depesz.com/test/redirect'); 
printf("Got HTTP/%s from %s.\n", $agent->response->code, $agent->uri); 

それは印刷し実行している：だから

Got HTTP/302 from http://www.depesz.com/test/redirect. 
Got HTTP/200 from http://www.depesz.com/. 

を、max_redirect（0）と - それは明らかにリダイレクトに従っていません。