Discussion :

[newbie666]

Bonjour,

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

la sortie du print Dumper($a);

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
 
 
$VAR1 = [
          bless( {
                   'message' => 'logging',
                   'user' => 'abc'
                 }, 'Struct' ),
          bless( {
                   'message' => 'logging',
                   'user' => 'bbb'
                 }, 'Struct' ),
          bless( {
                   'message' => 'loggout',
                   'user' => 'toto'
                 }, 'Struct' )
        ];

merci d'avance

[Philou67430]

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 :

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

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 :

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

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 ).