2012-05-01 3 views
0

나는 웹 페이지의 모든 링크를 통해 반복하고 싶습니다, 그래서 예를 들어, 저를 제공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'); 

질문

어떻게 바로 링크 I 출력을합니까?

답변

6

설명서는 링크가 WWW::Mechanize::Link 개체로 반환됨을 지적합니다. 따라서 :

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