XML mit PERL Split();

[myMojito]

Hier eine mögliche Ausgabe des XML-Prozessors:

Ein Element spam-document beginnt in Zeile 2!
Das Element besitzt die folgenden Attribute:
   version => 3.5
   timestamp => 2002-05-13 15:33:45
Ein Element customer beginnt in Zeile 4!
Ein Element first-name beginnt in Zeile 5!
Ein Element first-name wird beendet, es begann in Zeile 5.
.
.
.

Bei diesem eventorientierten Beispiel aus dem Buch werden nur die Events Start und End behandelt. Auf die Textinhalte zwischen den Tags hat man mit dem Handler "Char" zugriff. Fazu müsste man das XML::Parser-Modul wie folgt aufrufen:

my $parser->new( Handlers => {Start=>&handle_start, End=>\handle_end, Char=>&handle_char,});

Das Unterprogramm kann die wie folgt aussehen:

sub handle_char {
 my ($expat, $text) = @_;
 print "Der Datensatz enthält: $text";
}

Das Modul XML::Parser beherrscht neben den Eventsrömen auch eine baumorientierte Verarbeitung. Dabei wird das gesamte XML-Dokument mit Hilfe von Arrays und Hashes repräsentiert.

greets
myMojito