perl - 无法对未定义的值调用方法 X

Question

为什么以下代码会产生错误“无法在...第 6 行的未定义值上调用方法“get”？我已经阅读了类似的帖子，并认为我明白为什么会出现这种错误消息，但我不明白它在这里是如何应用的。我从 WWW::Mechanize 模块的教程中复制了这段代码，因此我希望它能够立即运行。

#!/usr/bin/perl
use warnings ;
use strict ;
use WWW::Mechanize;
my $url = 'http://www.google.com';
my $m->get($url);
my $link = $m->find_link(text =>'Advanced Search');
print "The Google advanced search URL is: $link->url()\n";

Answer 1

您错过了分配 WWW::Mechanize 实例的步骤。类到 $m多变的:

use WWW::Mechanize;

my $m = WWW::Mechanize->new; # <-- HERE

my $url = 'http://www.google.com';

$m->get($url); # ...and remove 'my' from this line

my $link = $m->find_link(text =>'Advanced Search');

# also, a method call won't interpolate properly, so change
# the below line as well:

print "The Google advanced search URL is: " . $link->url() . "\n";

# or:

# my $result = $link->url();
# print "The Google advanced search URL is: $result\n";