#!/usr/bin/perl

use strict;
use warnings;
use HTML::Parser;
use Data::Dumper qw/Dumper/;

sub parse_links {
	my $text = shift or die('missing text');
	
	my @links = ();
	
	my $p = HTML::Parser->new();
	$p->handler(start => \&start_handler,"tagname,attr,self");
	$p->parse($text);
	
	foreach my $link(@links){
		print "Linktext: ",$link->[1],"\tURL: ",$link->[0],"\n";
	}
	
	sub start_handler{
		return if(shift ne 'a');
		my ($class) = shift->{href};
		my $self = shift;
		my $text;
		$self->handler(text => sub{$text = shift;},"dtext");
		$self->handler(end => sub{push(@links,[$class,$text]) if(shift eq 'a')},"tagname");
	}
} # /parse_links