CheRt
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
VasyOK,
Цитата:| Вопрос, как собрать массив ссылок с удаленной страницы? |
Код:
#!/usr/bin/perl
use strict;
use Data::Dumper;
use LWP::UserAgent;
use HTML::TokeParser;
my $url = 'http://example.com';
my @links;
my $agent = LWP::UserAgent->new();
$agent->agent('Get-links script');
my $request = HTTP::Request->new( GET => $url );
my $result = $agent->request( $request );
if ( $result->is_success )
{
my $source = $result->content();
my $parser = HTML::TokeParser->new(\$source);
while (my $token = $parser->get_tag('a'))
{
my $url = $token->[1]{href};
my $text = $parser->get_trimmed_text('/a');
push(@links, $url) if $url;
}
print Dumper(\@links), "\n";
} else
{
print 'Error: ', $result->status_line, "\n";
}
|
----------
В огне бода нет и не будет!
До встречи в СССР 2.0! |
|
