Problem mit Perl und XML

[daniel_1405]

hallo zusammen,

ich finde einfach keine lösung für mein kleines problem. ich hoffe ihr könnt mir weiterhelfen.

# Globale Variablen und Funktionen
use warnings;
use strict;
use XML::Simple;
use DBI;

# Datenbank Zugangsdaten
my $DB_NAME = "perl_testino";
my $DB_DSN = "DBI:Pg:database=$DB_NAME";
my $DB_USER = "***";
my $DB_PASSWD = "***";

my $db =   DBI->connect($DB_DSN, $DB_USER, $DB_PASSWD)
            or die "Fehler bei Datenbankverbindung: $!";

my $recs = $db->selectall_arrayref('SELECT user_kdnr, user_pwd FROM public.user',{ Columns => {} });

my $xml = XMLout( {record => $recs}, NoAttr => 1 );

print "\n\n XML-Ausgabe der Datenbank: perl_testino Tabelle: user \n\n";
print $xml;

ich möchte jetzt erreichen, dass die ausgabe $xml auch so wie sie ist in ein XML-Dokument geschrieben und gespeichert wird. sicherlich ziemlich simpel. hoffe ihr könnt mir helfen.

Gruß
Daniel

[Christian Marquardt]

Schreiben in eine Datei

http://www-ik.fzk.de/~apel/html-Buch_2/tecj.htm

[daniel_1405]

danke.

zieh ich mir direkt mal rein. :-)