机械化和 Facebook 应用程序

Question

我从这个论坛找到了一个用于访问应用程序信息的脚本。基本上，我正在访问 Facebook 应用程序，并且可能会自动安装它。

我尝试查看是否通过以下代码获得权限对话框页面，但它不会返回权限页面而不是第一页。

facebook 所做的是多次重定向或元或发送一些其他请求，然后将用户带到我需要单击允许按钮的权限页面。但我无法获得许多应用程序的最终权限页面。这是代码，

use strict;
use WWW::Mechanize;
use HTTP::Cookies;

my $url = "http://www.facebook.com";

my $appurl = "http://apps.facebook.com/funmoods/";

my $username = 'mail';
my $password = 'pass';

my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_name('menubar_login');
$mech->field(email => $username);
$mech->field(pass => $password);
$mech->click();
my $facebook_content = $mech->content();
# go to an app url
$mech->get($appurl);
my $app_content = $mech->content();
print "$app_content\n";

我不知道为什么 mechanize 无法访问最终加载的页面。加载权限页面需要一些时间，但 mechanize 总是返回第一个源页面。我如何告诉 mechanize 等待它加载所有页面？

需要帮助谢谢

Answer 1

LWP::UserAgent 继承的 progress 子

$ua->progress( $status, $request_or_response ) 

我认为你应该使用从文档中的

：

这经常被称为
无论如何都会收到响应
内容已处理。方法
被调用时 $status "begin" 在
开始处理请求并且
在请求之前加上 $state "end"
方法返回。在这些之间
$status 将是
当前收到的响应或
如果分数不能是字符串“tick”
已计算。

当 $status 为“开始”时，第二个
参数是请求对象，
否则它是响应对象。