1

我正在尝试使用 WWW:Mechanize 登录 Youtube，并在登录后使用 forms() 打印页面上的所有表单。我的脚本成功登录，并且成功导航到 Youtube.com/inbox；但是，由于某种原因，Mechanize 在 Youtube.com/inbox 上看不到任何表格。它只是返回空白。这是我的代码：

#!"C:\Perl64\bin\perl.exe" -T

use strict;
use warnings;

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use WWW::Mechanize;
use Data::Dumper;

my $q = CGI->new;

$q->header();

my $url = 'https://www.google.com/accounts/ServiceLogin?uilel=3&service=youtube&passive=true&continue=http://www.youtube.com/signin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26hl%3Den_US%26next%3D%252Findex&hl=en_US&ltmpl=sso';

my $mechanize = WWW::Mechanize->new(autocheck => 1);

$mechanize->agent_alias( 'Windows Mozilla' );

$mechanize->get($url);

$mechanize->submit_form(
        form_id => 'gaia_loginform',
        fields      => { Email => 'myemail',Passwd => 'mypassword' },
    );
    die unless ($mechanize->success);

$url = 'http://www.youtube.com/inbox';

$mechanize->get($url);

$mechanize->form_id('comeposeform');

my $page = $mechanize->content();

print Dumper($mechanize->forms());

Mechanize 无法在 youtube.com/inbox 上看到任何表格，但是，就像我说的，我可以打印初始链接中的所有表格，无论我将其更改为...

提前致谢。

4

1 回答 1

2

与往常一样，最好的调试方法之一是print检查你得到的结果并检查它是否是你所期望的。这也适用于您的问题。

在您的情况下，如果您print $mechanize->content()发现您没有得到您期望的页面。YouTube 希望您遵循 JavaScript 重定向以完成跨域登录操作。您在这里有多种选择：

  • 手动解析返回的内容——即/location\.replace\("(.+?)"/
  • 尝试让您的代码解析 JavaScript（看看WWW::Scripter）
  • [推荐] 使用YouTube API管理您的收件箱
于 2011-02-04T09:34:02.030 回答