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;