#!/usr/bin/perl -w use LWP::Simple; use HTML::LinkExtor; use Data::Dumper; my $content = get("http://www.yandex.ru"); #Get web page die "Get web page failed!" unless defined $content; my $parser = HTML::LinkExtor->new(); #create LinkExtor object $parser->parse($content); #parse content my @links = $parser->links; #get list of links print Dumper (\@links); #print list of links
--------------------------------
SV* sv_bless(SV* sv, HV* stash);
In reply to Re: Parsing out URLs with regex
by nite_man
in thread Parsing out URLs with regex
by xtomservox
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |