use XML::Parser; my $zeiger = new XML::Parser (); $zeiger->setHandlers ( Start => \&anfang, End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("test.xml"); print ""; sub anfang { %watnu1=("persona"=>"","name"=> "

","telefon"=>"

","beruf"=>"

","adresse"=>"

"); $wert_des_zeigers = shift; $starttag=shift; print $watnu1{$starttag}; print "\n"; } sub ende { %watnu2=("persona"=>"

","name"=> "","telefon"=>"","beruf"=>"","adresse"=>""); ($wert_des_zeigers,$endtag) = @_; print "$watnu2{$endtag}"; } sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print " $inhalt"; } print "";