Brauche Hilfe beim XML Parsen mit XML::Simple

[Markus M.]

Hallo zusammen, ich scheitere mal wieder an Perl...

Ich hab es noch hinbekommen in einer Schleife eine Ebene zu durchlaufen und bekomme dann mit Dumper($val) das hier:

Code Auswählen Erweitern

$VAR1 = {
          'parsevalues' => {
                      'value_0' => {
                                 'valcode' => '0'
                               },
                      "value_1" => {
                                   'valcode' => '0'
                                 },
                      'value_2' => {
                                 'valcode' => '0'
                               },
                      'value_3' => {
                                  'valcode' => '1'
                                },
                      "value_4" => {
                                   'valcode' => '2'
                                 },
                      'value_5' => {
                                'valcode' => '1'
                              },
                      'value_6' => {
                                    'valcode' => '0'
                                  }
                    },
          'tag' => '0'
        };

Wie bekomme ich damit nun eine Schleife hin in der ich jeweils auf ein Paar aus value_n und valcode zugreifen kann?
Ich hab schon alles probiert, ohne Erfolg...

Viele Grüsse,
Markus

[flurin]

Ein Ansatz als Idee. Die Werte werden in %values_hash gespeichert:

Code Auswählen Erweitern


my $xml_file = XMLin("file.xml");
my %values_hash = ();
my $root = "parsevalues";

foreach my $element (@{$xml_file->{$root}})  {
  $values_hash{ 'value_0' } = {valcode => $element->{value_0}->{valcode}};
  $values_hash{ 'value_1' } = {valcode => $element->{value_1}->{valcode}};
  ...
}


Gruss
flurin

[Markus M.]

Danke!
Der daraus entstandene wirre Code findet sich in meinem Modul zur Pollenflugvorhersage