Как использовать вывод WWW::Mechanize?

Question

Я хотел бы просмотреть все ссылки на веб-странице, поэтому я попытался

#!/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' );

Вопрос

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

Accepted Answer

В документации указано, что ссылки возвращаются как объекты WWW::Mechanize::Link. Поэтому: my @links = $m->find_all_links(url_regex => qr/google/); print $_->url, "
" for @links;

Как использовать вывод WWW::Mechanize?

Ответы

Ответ 1 · рейтинг 6 · Sinan Ünür

Похожие материалы