perl WWW::Mechanize，链接重定向问题

Question

我使用 WWW::Mechanize::Shell 来测试东西。

我的代码是这样的：

#!/usr/bin/perl
use WWW::Mechanize;
use HTTP::Cookies;

my $url = "http://mysite/app/login.jsp";
my $username = "username";
my $password = "asdfasdf";
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_number(1);
$mech->field(j_username => $username);
$mech->field(j_password => $password);
$mech->click();
$mech->follow_link(text => "LINK A", n => 1);   
$mech->follow_link(text => "LINK B", n => 1);   

........................ ........................ ........................ 等等，

问题是下一个：

重定向到 web_page_x.html

LINK B (web_page_b.html)，如果我打印 $mech->content() 的内容，则

，显示 web_page_b.html但我需要显示 web_page_x .html，自动提交 HTML 表单 (web_page_x.html)

问题是：

如何获取 web_page_x.html ？

谢谢

Answer 1

为什么不首先测试一下 web_page_b.html 上是否存在包含重定向的代码（我猜测它是 标记？），然后一旦您确定浏览器会执行此操作，请直接转到下一页。

这看起来像：

  $mech->follow_link(text => "LINK B", n => 1);
  unless($mech->content() =~ /<meta http-equiv="refresh" content="5;url=(.*?)">/i) {
     die("Test failed: web_page_b.html does not contain META refresh tag!");
  }
  my $expected_redirect = $1;      # This should be 'web_page_x.html'
  $mech->get($expected_redirect);  # You might need to add the server name into this URL

顺便说一句，如果您正在使用 WWW::Mechanize 进行任何类型的测试，您确实应该查看 Test::WWW::Mechanize 和其他 Perl 测试模块！它们让生活变得更加轻松。

Answer 2

如果它没有真正重定向，那么您最好将正则表达式与该 follow_link 方法一起使用，而不仅仅是纯文本。

例如：

$mech->follow_link(url_regex => qr/web_page_b/i , n => 1);  

其他链接也一样。