XML::Simple

[Claudio Vituzzi]

# Questo è il file data.xml:

<replies>

<reply number="0">
<user>Larry</user>
<text>Hi!</text>
</reply>

<reply number="1">
<user>Niki</user>
<text>Morning!</text>
</reply>

<reply number="2">
<user>Joe</user>
<text>Night!</text>
</reply>

</replies>

# per leggere il file data.xml uso questo codice:

use XML::Simple;

my $simple = XML::Simple->new( );
my $tree = $simple->XMLin( './data.xml' );

print $tree->{ reply }->{ user }[0]; # stampa: Larry...giusto?

come faccio a stampare tutti i <reply>? credo cmq con un ciclo...ma non so come...

come faccio ad aggiungere alla struttura i nuovi dati e poi ad aggiornare il file:

<reply number="3">
<user>Paul</user>
<text>How are you?</text>
</reply>

lo posso fare con XML::Simple? il file lo aggiorna il modulo o devo farlo io?
e se avessi voluto modificare i valori di <reply number="2">?

Grazie...

[shishii]

la prima cosa da fare è sempre leggere la documentazione, se lo avessi fatto avresti scoperto che tramite questo codice avresti potuto vedere la struttura logica del file.xml

use XML::Simple;
use Data::Dumper;

my $simple = XML::Simple->new( ); 
my $tree = $simple->XMLin( './data.xml' );

print Dumper($tree);

che produce questo output:

$VAR1 = {
          'reply' => [
                       {
                         'user' => 'Larry',
                         'text' => 'Hi!',
                         'number' => '0'
                       },
                       {
                         'user' => 'Niki',
                         'text' => 'Morning!',
                         'number' => '1'
                       },
                       {
                         'user' => 'Joe',
                         'text' => 'Night!',
                         'number' => '2'
                       }
                     ]
        };

il che ti avrebbe consentito di capire che la struttura del comando che proponi:

print $tree->{ reply }->{ user }[0];

è logicamente sbagliata.

la struttura esatta è:

print $tree->{reply}->[<numero>]->{user},"\n";

per cui per visualizzare tutti gli user basta:

for (my $i=0; $i<=$#{$tree->{'reply'}}; $i++) {
print "$i: ",$tree->{'reply'}->[$i]->{'user'},"\n";
}

[Claudio Vituzzi]

cmq se io avessi messo tanti <reply> invece di <reply numero="x"> il tuo codice andava bene cmq...vero???

e per aggiungere come faccio? intendo <reply number="x">

grazie mille! (mi dai poi un tuo parere su questo modulo in generale? è veloce? lo posso usare con file medi/grossi?)

[shishii]

il parametro "numero" non ha alcun ruolo, riguardati il diagramma generato da Dumper. Gli indici dell'array sono dati dalla posizione nello stesso e NON da quel parametro, per cui se ti serve solo a quello lo puoi anche eliminare.

Non ho fatto dei benchmark su quel modulo ma ritengo che sia buono visto che è molto usato.