perl - WWW::Mechanize からの出力を使用するには?

Question

Webページ上のすべてのリンクをループしたいので、試しました

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

質問

リンクだけを出力するにはどうすればよいですか?

Answer 1

ドキュメントは、リンクがオブジェクトとして返されることを指摘していWWW::Mechanize::Linkます。したがって：

my @links = $m->find_all_links(url_regex => qr/google/);
print $_->url, "\n" for @links;