Как использовать вывод 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){
    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' );

Вопрос

Как вывести только ссылки?


perl mechanize www-mechanize
person Sandra Schlichting    schedule 01.05.2012    source источник

Ответы (1)


arrow_upward
6
arrow_downward

В документации указано, что ссылки возвращаются как объекты WWW::Mechanize::Link. Поэтому:

my @links = $m->find_all_links(url_regex => qr/google/);
print $_->url, "\n" for @links;
person Sinan Ünür    schedule 01.05.2012