mit perl ein .xml erzeugen

[andreas]

hallo,

ich würde gerne wissen, ob mann mit perl eine datei öffnen kann, und dann für jede diese einträge in diesem datei, die mit semikolon getrännt sind, xml einträge erzeugen kann?
z.B: ich habe in datei.log folgende Zeilen:

Herr;Müller;Hans;
Frau;Schneider;Maria

ok ich will nun für jede Zeile folgende Eintrag in xml erzeugen:

<?xml version ="1.0" encoding="ISO-8859-1"?>
<users>
 <user>
  <anrede>Herr</anrede>
  <firstname>Hans</firstname>
  <lastname>Müller</lastname>
 </user>
 <user>
  <anrede>Frau</anrede>
  <firstname>Maria</firstname>
  <lastname>Schneider</lastname>
 </user>
</users>
</xml>

ich habe viles versucht aber leider hat nicht geklappt und bin mit den nerven am ende?
Kann mir jemand von euch weiter helfen, wie man das hin krigt!

vielen Dank!

[TorstenA]

Hallo andreas,

ich würde gerne wissen, ob mann mit perl eine datei öffnen kann, und dann für jede diese einträge in diesem datei, die mit semikolon getrännt sind, xml einträge erzeugen kann?

Wohin sollen denn diese Einträge?

Herr;Müller;Hans;
Frau;Schneider;Maria

Zeile einlesen, mit Hilfe eines RegEx zerlegen und in der von dir gewünschten Form ausgeben. Etwa so (ungetestet):

open(FH, "datei.log") || die $!;
while( <FH> ) {
  $_ =~ /^(.+?);(.+?);(.+?)$/;
  print "<anrede>$1</anrede>";
  print "<firstname>$3</firstname>";
  print "<lastname>$2</lastname>";
}
close(FH);

Flüchtigkeits- und andere Fehler vorbehalten ;-)

Grüße
Torsten