Récupérer les objets perl

Bonjour,

J'ai une question, comment puis je récupérer user, message via perl ?

la sortie du print Dumper($a);

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

$VAR1 = [ bless( { 'message' => 'logging', 'user' => 'abc' }, 'Struct' ), bless( { 'message' => 'logging', 'user' => 'bbb' }, 'Struct' ), bless( { 'message' => 'loggout', 'user' => 'toto' }, 'Struct' ) ];

---

merci d'avance

Au lieu d'utiliser la fonction Dumper, utilise la fonction Dump de la sorte :

Dans le script qui sauve @a (tableau d'objets Struct) :

Code:

---

1 2 3 4 5 6

use Data::Dumper; our @a; # ... remplir @a open my $A, ">", "fichier_a.pm" or die $!;   print Data::Dumper->Dump([\@a], [qw(*a)]);

---

Dans celui qui lit (voir perldoc -f do) :

Code:

---

1 2 3 4 5 6 7

our @a; my $file = "fichier_a.pm"; unless ($return = do $file) { warn "couldn't parse $file: $@" if $@; warn "couldn't do $file: $!" unless defined $return; warn "couldn't run $file" unless $return; }

---

@a est restitué à l'identique.

Quand tu postes, merci d'utiliser les balises CODE (icône http://www.developpez.net/forums/images/editor/code.gif).