#! /usr/bin/perl use strict; use warnings; use HTML::Parser; my @links; my $string = qq~ Mandanten-Information
Informationen aus dem Steuer-, Wirtschafts-, Arbeits- und Sozialrecht

März 2004
Nicht die Dinge selbst, sondern unsere Vorstellungen von den Dingen
machen uns glücklich oder unglücklich.
Epiktet; 50 &– 125, griechischer Philosoph
Inhaltsverzeichnis
Kurz notiert

Steuertermine / Basiszinssatz / Verzugszinssatz / Verbraucherpreisindex
linktext1 Ein anderer Text linktext2 text~; my $p = HTML::Parser->new(); $p->handler(start => \&start_handler,"tagname,attr,self"); $p->parse($string); 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"); }