Probleme mit XML::Simple (Fragen zu Perl-Modulen)

[thread]8683[/thread]

Probleme mit XML::Simple

Leser: 2

2007-01-25 15:52

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

Ich habe folgendes Problem. Mit XML::Simple wird eine Datenstruktur gespeichert und von einem anderen Script wieder eingelesen.
Das XML-File hat diesen Aufbau:

Code: (dl )

<opt>
  <system_1>
    <forms name="main_menu">
      ...
    </forms>
    <forms name="disconnect">
      ...
    </forms>
    ...
  </system_1>
  <system_2>
    <forms name="whatever">
      ...
    </forms>
    ...
  </system_2>
</opt>

Das Einlesen und das Verarbeiten der Datei funktionierte die ganze Zeit einwandfrei. Die Weiterverarbeitung geschieht über den Form-Namen.

Code: (dl )

my $xs = new XML::Simple();
my $tree = $xs->XMLin('vxml_tree.xml');
my $vxml = $tree->{system_1};
foreach my $form (sort keys %{$vxml->{forms}})
{
   ...
}

Doch plötzlich hat die XML-Datei den weiter unten gezeigten Aufbau und ich komme nicht mehr wie zuvor an meine 'forms' ran.
Wenn ich nun stattdessen

Code: (dl )

foreach my $form (sort keys %{$vxml})

benutze, bekomme ich zwar wieder meine forms, allerdings auch eine form mit dem namen 'name' und die existiert nicht.
Auszug DataDumper:
'name' => 'forms'
'forms' => {}

Code: (dl )

<opt>
  <system_1 name="forms">
    <main_menu>
       ...
    </main_menu>
    <disconnect>
      ...
    </disconnect>
  </system_1>
  <system_2 name="forms">
    <whatever>
      ...
    </whatever>
  </system_2>

Das Script, welches das xml-file schreibt, ist schon etwas älter und meines Wissens auch seitdem unverändert. Also ich blicke im Moment nicht mehr durch...

Hat vielleicht jemand eine Idee, was ich tun muss, damit ich wieder das ursprüngliche Format erhalte?

renee

2007-01-25 16:07

User since
2003-08-04
14371 Artikel
ModeratorIn

Kannst Du eine "Dummy"-XML-Datei erstellen und ein kurzes Script posten, das den Fehler reproduziert?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

2007-01-25 16:43

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

hier script und dump... nach dem einlesen ist der key 'forms' weg, dafür gibts nen key 'name' mit value 'forms'

Code: (dl )

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my @forms = qw(first second third);
my $tree;
my $vxml;

my $filename = 'vxml_tree.xml';

$vxml->{forms}->{$_} = ['dummy', { more_dummy => 'more' }] for (@forms);
$tree->{system_1} = $vxml;

print Dumper $tree;

my $xs = new XML::Simple();
my $xml = $xs->XMLout($tree);
open my $fh, '>', $filename or die $!;
print $fh $xml;
close $fh;

$tree = $xs->XMLin($filename);

print Dumper $tree;

...und die ausgabe

Code: (dl )

$VAR1 = {
          'system_1' => {
                          'forms' => {
                                       'first' => [
                                                    'dummy',
                                                    {
                                                      'more_dummy' => 'more'
                                                    }
                                                  ],
                                       'second' => [
                                                     'dummy',
                                                     {
                                                       'more_dummy' => 'more'
                                                     }
                                                   ],
                                       'third' => [
                                                    'dummy',
                                                    {
                                                      'more_dummy' => 'more'
                                                    }
                                                  ]
                                     }
                        }
        };
$VAR1 = {
          'system_1' => {
                        'first' => [
                                   'dummy',
                                   {
                                     'more_dummy' => 'more'
                                   }
                                 ],
                        'second' => [
                                    'dummy',
                                    {
                                      'more_dummy' => 'more'
                                    }
                                  ],
                        'third' => [
                                   'dummy',
                                   {
                                     'more_dummy' => 'more'
                                   }
                                 ],
                        'name' => 'forms'
                      }
        };

\n\n

2007-01-25 17:01

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

ich glaube, ich hab's gefunden...

Code: (dl )

my $xs = new XML::Simple(ForceArray => 1);

so sind zumindest die dumps gleich... werde es mal gleich in meine scripts einbauen und testen

renee

2007-01-25 17:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Mach mal:

Code: (dl )

my $xml = $xs->XMLout($tree, NoAttr => 1);

Damit wird verhindert, dass 'forms' zu einem Attribut von 'system_1' wird.

2007-01-25 17:45

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

@renee
aber ich möchte ja, dass 'forms' ein attribut von 'system_1' wird (bleibt), um nach dem einlesen des xml-files so auf die einzelnen elemente zugreifen zu können:

Code: (dl )

print qq($_\n) for keys %{$tree->{system_1}->{forms}};

2007-01-26 11:53

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

Weder ForceArray => 1 noch NoAttr => 1 haben das gewünschte Ergebnis gebracht :(

Ich habe mich deshalb damit abgefunden und verarbeite das xml jetzt eben so...

Code: (dl )

foreach my $form (sort keys %{$vxml})
{
   next if ('name' eq $form);
   ...
}

View all threads created 2007-01-25 15:52.