sub gimmelinks {
my $html = shift;
my @linkywinkys;
use HTML::TokeParser;
my $parsee = HTML::TokeParser->new(\$html);
while (my $tag = $parsee->get_tag('a')) {
push @linkywinkys, {url => $tag->[1]->{href},
txt => $parsee->get_trimmed_text('/a')};
}
return @linkywinkys;
}
That should do you fine if you want to use good old HTML::TokeParser. You get the link text free as well! It returns an array of hashes, where the url is the "url" key and the text is the "txt" key. What am I saying - figure it out yourself :)
--
amoe