4

我使用 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);

…………………………………………………………………………………………………………………………………………………………………………………… …………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………等等

问题是下一个：

LINK B (web_page_b.html)，重定向到 web_page_x.html

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

但我需要显示 web_page_x.html，以自动提交 HTML 表单（web_page_x.html）

问题是：

我怎样才能得到 web_page_x.html ？

谢谢

4

2 回答 2

3

为什么不先测试一下是否存在包含重定向的代码（我猜它是一个<META>标签？）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 测试模块！他们让生活变得更轻松。

于 2011-04-30T05:23:50.050 回答
0

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

如：

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

其他链接也一样。

于 2011-04-30T01:15:01.700 回答