#!/usr/bin/perl -w ###################################################################### # (c) Michael Schilli 1999 ###################################################################### use LinkTrans; # Spezial-Modul use URI::URL; # URLs manipulieren ############################################################### sub translate_url { # Callback für LinkTrans ############################################################### my $urlstring = shift; # URL als Argument my $towatchfor = "http://hier.com/doc/"; if($urlstring =~ /^$towatchfor/) { # Relativieren, # falls gewünscht return URI::URL->new($urlstring)->rel($towatchfor); } return $urlstring; # Nicht relativiert zurück } $doc = < Dieser Link (Klick!) soll bleiben. Dieser hingegen ( Link!) soll relativiert werden. EOT $parser = LinkTrans->new(\&translate_url); # Objekt erzeugen $parser->parse($doc); # Parser anwerfen print $parser->get_result(), "\n"; # Ergebnis ausgeben