Hallo liebe perl-Weisen,
ich habe folgendes Problem:
Eine XML-Datei, die vom Prinzip folgende Struktur hat:
Was ich bräuchte, wäre etwas der Art:
'X' =\> {
'name' =\>'A'
'comment' =\> 'a',
'X' =\> [
{ 'name' =\> 'A.1',
'comment' =\> 'a.1',
'Y' =\> [
{ 'name' =\> 'B-1',
'comment' =\> 'B1' },
{ 'name' =\> 'B-1',
'comment' =\> 'B1' }
],
}, (...)
Ich kriege leider das hier:
$VAR1 = \{
'X' =\> {
'A' =\> {
'comment' =\> 'a',
'X' =\> {
'A.1' =\> {
'comment' =\> 'a.1',
'Y' =\> {
'B-1' =\> {
'comment' =\> 'B1'
},
}
},
(...)
};
Mein Code:
use XML::Simple;
$k=new XML::Simple(keepRoot=\>1, ForceArray=\>['X','Y']);
$f=$k-\>XMLin(qq(mbsp.xml));
use Data::smiley:umper;
print Dumper (\$f);
Bitte um Hilfe, irgendwas ganz Offensichtliches übersehe ich wohl.
Gruß + Danke,
Michael