Comment analyser multi enregistrer fichier XML ues XML::Simple en Perl

Mon data.xml

<?xml version="1.0" encoding="ISO-8859-1"?>
<catalog>
  <cd country="UK">
    <title>Hide your heart</title>
    <artist>Bonnie Tyler</artist>
    <price>10.0</price>
  </cd>
  <cd country="CHN">
    <title>Greatest Hits</title>
    <artist>Dolly Parton</artist>
    <price>9.99</price>
  </cd>
  <cd country="USA">
    <title>Hello</title>
    <artist>Say Hello</artist>
    <price>0001</price>
  </cd>
</catalog>

mon test.pl

#!/usr/bin/perl

   # use module
   use XML::Simple;
   use Data::Dumper;

   # create object
   $xml = new XML::Simple;

   # read XML file
   $data = $xml->XMLin("data.xml");

   # access XML data
   print "$data->{cd}->{country}\n";
   print "$data->{cd}->{artist}\n";
   print "$data->{cd}->{price}\n";
   print "$data->{cd}->{title}\n";

De sortie:

Not a HASH reference at D:\learning\perl\t1.pl line 16.

Commentaire: j'ai googlé et trouvé l'article(poignée unique xml record).
http://www.go4expert.com/forums/showthread.php?t=812
J'ai testé avec le code article, il fonctionne très bien sur mon ordinateur portable.

Puis j'ai créé ma pratique de code ci-dessus pour essayer d'accéder à de multiples enregistrement. mais a échoué. Comment puis-je résoudre ce problème? Merci.

InformationsquelleAutor Nano HE | 2010-06-04
  1. 5

    Toujours use strict;, toujours use warnings; Ne pas citer complexe de références comme vous êtes en train de faire. Vous êtes en droit de use Dumper;, il devrait avoir montré que cd était un tableau ref - vous avez de la spécificité de cd.

    #!/usr/bin/perl
use strict;
use warnings;

# use module
use XML::Simple;
use Data::Dumper;

# create object
my $xml = new XML::Simple;

# read XML file
my $data = $xml->XMLin("file.xml");

# access XML data
print $data->{cd}[0]{country};
print $data->{cd}[0]{artist};
print $data->{cd}[0]{price};
print $data->{cd}[0]{title};
    • Merci pour le détail de la dissection.
    InformationsquelleAutor Evan Carroll
  2. 2

    Si vous ne print Dumper($data), vous verrez que la structure de données ne regarde pas comme vous pensez qu'il n':

    $VAR1 = {
          'cd' => [
                  {
                    'country' => 'UK',
                    'artist' => 'Bonnie Tyler',
                    'price' => '10.0',
                    'title' => 'Hide your heart'
                  },
                  {
                    'country' => 'CHN',
                    'artist' => 'Dolly Parton',
                    'price' => '9.99',
                    'title' => 'Greatest Hits'
                  },
                  {
                    'country' => 'USA',
                    'artist' => 'Say Hello',
                    'price' => '0001',
                    'title' => 'Hello'
                  }
                ]
        };

    Vous avez besoin d'accéder aux données comme suit:

    print "$data->{cd}->[0]->{country}\n";
print "$data->{cd}->[0]->{artist}\n";
print "$data->{cd}->[0]->{price}\n";
print "$data->{cd}->[0]->{title}\n";
    InformationsquelleAutor Ether
  3. 2

    En plus de ce qui a été dit par Evan, si vous n'êtes pas sûr si vous êtes coincé avec un ou plusieurs éléments, ref() pouvez-vous dire ce que c'est, et vous pouvez le gérer en conséquence:

    my $data = $xml->XMLin("file.xml");

if(ref($data->{cd}) eq 'ARRAY')
{
   for my $cd (@{ $data->{cd} })
   {
      print Dumper $cd;
   }
}
else # Chances are it's a single element
{
   print Dumper $cd;
}
    InformationsquelleAutor squeeks