Perl 如何使用WWW::Mechanize的输出?
我想循环浏览网页上的所有链接,所以我已经尝试过了Perl 如何使用WWW::Mechanize的输出?,perl,mechanize,www-mechanize,Perl,Mechanize,Www Mechanize,我想循环浏览网页上的所有链接,所以我已经尝试过了 #!/usr/bin/perl use WWW::Mechanize; my $url = "http://www.google.com"; my $m = WWW::Mechanize->new(); $m->get($url); my @links = $m->find_all_links(url_regex => qr/google/); foreach my $link (@links){ prin
#!/usr/bin/perl
use WWW::Mechanize;
my $url = "http://www.google.com";
my $m = WWW::Mechanize->new();
$m->get($url);
my @links = $m->find_all_links(url_regex => qr/google/);
foreach my $link (@links){
print Dumper $m->get($link->url_abs);
}
这给了我例如
$VAR11 = bless( [
'http://www.google.com/ncr',
'Google.com in English',
undef,
'a',
$VAR1->[4],
{
'href' => 'http://www.google.com/ncr',
'class' => 'gl nobr'
}
], 'WWW::Mechanize::Link' );
问题
如何仅输出链接?文档指出链接是作为对象返回的。因此:
my @links = $m->find_all_links(url_regex => qr/google/);
print $_->url, "\n" for @links;
文档指出链接是作为对象返回的。因此:
my @links = $m->find_all_links(url_regex => qr/google/);
print $_->url, "\n" for @links;