将机械化浏览器传递给子例程（带有 WWW::Mechanized 的 Perl）

Question

我仍在学习 Perl，因此对缺乏技术术语知识和一般新手表示歉意。

我正在尝试编写一个脚本来登录我的课程作品帐户并下载所有文件。我只能停留大约一个小时，直到我必须重新登录，所以我想在子例程中完成登录工作，这样根据时间我可以调用它并重新登录并继续爬行。我的问题是我希望能够在子例程和主代码之间来回传递浏览器（？关于术语，请参阅下面的示例，它会更有意义）。

这是我到目前为止所拥有的，但它不起作用：

use strict;
use WWW::Mechanize;

login();
my $username = 'username';
my $password = 'password';
my $url = 'website url';

my $browser = WWW::Mechanize->new();

my $response = login ($username,$password,$url,$browser);
print $response->content;

sub login {
    my ($user,$pass,$url,$browser) = @_;
    $browser -> get($url);
    $browser -> form_name('theform');
    $browser -> field ('username' => $user);
    $browser -> field ('password' => $pass);
    $browser -> click ('log in');
    return $browser;
}

这表示我无法在 $browser -> 上“在未定义的值上调用方法'get'”。获取（$url）；。所以我猜测在主代码中初始化浏览器不起作用（因为它没有传递给子例程）Y/N？

好吧，很酷，然后我尝试在子例程本身中执行此操作，如下所示：

use strict;
use WWW::Mechanize;

login();
my $username = 'username';
my $password = 'password';
my $url = 'website url';

my $response = login ($username,$password,$url,$browser);
print $response->content;

sub login {
    my ($user,$pass,$url) = @_;
    my $browser = WWW::Mechanize->new();
    $browser -> get($url);
    $browser -> form_name('theform');
    $browser -> field ('username' => $user);
    $browser -> field ('password' => $pass);
    $browser -> click ('log in');
    return $browser;
}

这次我收到以下错误消息：“在 C:/Perl64/lib/HTTP/Response.pm 第 93 行缺少基本参数”

因此，我删除了行在子例程中直到它工作为止，发现它编译时如下所示：

use strict;
use WWW::Mechanize;

login();
my $username = 'username';
my $password = 'password';
my $url = 'website url';

my $response = login ($username,$password,$url,$browser);
print $response->content;

sub login {
    my ($user,$pass,$url) = @_;
    my $browser = WWW::Mechanize->new();
#   $browser -> get($url);
#   $browser -> form_name('theform');
#   $browser -> field ('username' => $user);
#   $browser -> field ('password' => $pass);
#   $browser -> click ('log in');
    return $browser;
}

但它显然只是返回垃圾。

我认为问题是，正如我所说，试图将浏览器对象传递给子例程，因为我不认为它只是一个标量（因为我可以从中获取“内容”之类的东西），但我实际上真的没有把握。我也很困惑，因为当我在子程序中初始化它时，我仍然遇到问题！我还尝试将 $browser 设为全局变量，但在两个代码中都遇到了相同的错误。显然我在这里遗漏了一些东西。

预先感谢所有经历过它的人，我知道这可能是一个非常简单的答案，这有点冗长，但我的经验不足。

Answer 1

您的第一次登录调用不提供浏览器、用户名等。

如果您在整个脚本中只需要一个 Mechanize 实例（并且将使用同一用户登录），则可以依赖全局变量。

use strict;
use WWW::Mechanize;

my $username = 'username';
my $password = 'password';
my $url = 'website url';

my $browser = WWW::Mechanize->new();

login();
print $browser->$response->content;

sub login {
    $browser -> get($url);
    $browser -> form_name('theform');
    $browser -> field ('username' => $user);
    $browser -> field ('password' => $pass);
    $browser -> click ('log in');
}

或者更好的是，每次都将数据传递给登录：

use strict;
use WWW::Mechanize;

my $username = 'username';
my $password = 'password';
my $url = 'website url';

my $browser = WWW::Mechanize->new();

login ($username,$password,$url);
print $browser->$response->content;

sub login {
    my ($user,$pass,$url) = @_;
    $browser -> get($url);
    $browser -> form_name('theform');
    $browser -> field ('username' => $user);
    $browser -> field ('password' => $pass);
    $browser -> click ('log in');
}

如果您每次都想要一个新的 Mechanize 实例，请在登录中实例化它并返回它。