Discussion :

[Jasmine80]

Bonjour à tous,

Y at-il moyen de sauver facilement un hash de array dans un fichier, en vue de le réimporter tel quel plus tard dans un autre programme ? Connaissez-vous des modules ?

D'avance merci.

[Jasmine80]

J'ai maintenant transformé mon tableau en hash de hash de array. Mais, je suppose que la question reste la même. Merci.

[cmcmc]

Le plus simple et portable est sans doute Data::Dumper. En moins portable mais dans le core il y a Storable. Après il y a aussi YAML et JSON...

[Jasmine80]

Merci cmcmc, je vais y regarder et je reviens donner mon avis.

[Lolo78]

Juste en complément, Data::Dumper fait aussi partie des modules core.

[cmcmc]

Un petit exemple vite fait avec Data::Dumper :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Taisha:~/perl/forum $ perl -E '
my $h = { b => { c => { foo => 1, bar => 2 }}, a => [0 .. 3], d => [4, 6, 8, 10]};
{
   use Data::Dumper;
   local ($Data::Dumper::Purity, $Data::Dumper::Terse) = (1,1);
   print Dumper($h);
}' > h.dat
Taisha:~/perl/forum $ cat h.dat
{
          'a' => [
                   0,
                   1,
                   2,
                   3
                 ],
          'b' => {
                   'c' => {
                            'bar' => 2,
                            'foo' => 1
                          }
                 },
          'd' => [
                   4,
                   6,
                   8,
                   10
                 ]
        }
Taisha:~/perl/forum $ perl -MData::Dump -e 'my $h = do "h.dat"; dd $h'
{ a => [0 .. 3], b => { c => { bar => 2, foo => 1 } }, d => [4, 6, 8, 10] }
Taisha:~/perl/forum $

note que l'utilisation de Data::Dump ci-dessus n'a rien à voir avec la sérialisation/désérialisation de $h: je l'utilise juste pour la fonction dd qui est pratique et compacte pour les impressions de debug. La sérialisation est faite par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print Dumper($h)

et la désérialisation par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$h = do "h.dat"