Array serializé PHP -> HASH, ARRAY perl

Version imprimable

Bonjour,
j'ai un problème sur lequel je bug depuis un petit moment maintenant à cause d'un passage de tableau sérializé en php vers un tableau en perl...

En fait le problème est le suivant :
J'ai des données dans un tableau serializé dans une base mysql (ceci est fait sans problème). La partie gestion des tableaux en PHP ne me cause pas de problème.

J'enregistre un tableau serializé contenant des identifiants d'une table comme cela dans un champs de type blob : Array ( [1] => 6 [2] => 3 )

Via un script perl j'essaye de récupérer ce tableau serializé et vérifier si un ID y est présent.

Voici la méthode perl par laquelle j'essaye d'arriver à mes fins :
Code:

1 2 3 use PHP::Serialization qw(serialize unserialize); my $encoded = serialize({ a => 1, b => 2}); my $hashref = unserialize($encoded);
Malheureusement, j'arrive pas à manipuler $hashref ...
Chose vraiment étrange, lorsque je modifie les valeurs de ce tableau sérialisé via ma page PHP/mysql, je n'ai des fois pas le même résultat dans $m3...
Des fois un ARRAY, des fois un HASH...

J'ai quand même pensé à regarder les doc perl pour utiliser des tableaux en perl !! (Avant de me faire le rappel à l'ordre :-)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 my $id='3'; my $sql; my $result; $sql = "SELECT tab_module AS m FROM matable WHERE en_cours=1"; $result = $dbh->prepare($sql) or die "Echec Requete $sql : $DBI::errstr"; $result->execute(); $result->bind_columns(undef, \my $m); $result->fetch(); my $m3 = unserialize($m); print \$m3.'|'; if ( "\$m3" =~ /$id/) { print "OK\n"; } else { print "NOK\n"; }
-> La partie sql fonctionne, il s'agit juste de la fonction unserialize sur laquelle je coince.
Et/ou si vous avez une autre méthode, je suis preneur...

Code:

1
2
3
4
5
6
7
8
use Data::Dumper;
 
use PHP::Serialization qw(serialize unserialize);
my $encoded = serialize({ a => 1, b => 2});
my $hashref = unserialize($encoded);
print Dumper $hashref;
 
print $hashref->{a};

$hashref est une référence de hash. Regarde ici pour comprendre.

13/03/2011, 14h12
shensi

my %hash = unserialize($m);
my $ref_hash = \%hash;

foreach my $niveau ( @{ $ref_hash } ) {
print "\t- $niveau\n";
}

Ca marche pas ... POurrais tu me guider un petit peu plus ?
Cordialement
13/03/2011, 15h01
djibril

Citation:

Envoyé par shensi

my %hash = unserialize($m);
my $ref_hash = \%hash;

foreach my $niveau ( @{ $ref_hash } ) {
print "\t- $niveau\n";
}

Ca marche pas ... POurrais tu me guider un petit peu plus ?
Cordialement

Lit exactement ce qui est marqué ci-dessus.

Code:

my %hash = unserialize($m);

;););)

Code:

my $hashref = unserialize($encoded);
13/03/2011, 16h25
shensi
Code:

1 2 my $hashref = unserialize($m); print Dumper $hashref;
J'ai testé une paire de choses et j'ai copié n'imrpote quoi...
Ok super :-) j'arrive bien à visualiser le contenu de $hashref
Code:

1 2 3 4 $VAR1 = { '1' => '6', '2' => '3' };
Ca avance lentement... le perl est permissif dans ses façon d'écrire les choses. On va y arriver ...

Maintenant il ne me reste plus qu'à connaitre le nombre d'élément dans ce hash et de pouvoir le parcourir.
Je suis toujours preneur et intéressé par tes remarques, exemples et conseils ... merci d'avance
13/03/2011, 16h30
shensi
Code:

1 2 3 4 5 6 my $key; my $value; while(($key,$value) = each %$hashref){ print "clé:$key -- valeur : $value"; }
Super ! J'ai trouvé
Existe t'il une méthode pour vérifier si mon hash contient une valeur sans avoir à le parcourir?

Et si mon hash est vide ? le parcourir me causera t'il une erreur ?

Salut,
j'ai trouvé d'ou venait mon bug... en amont !
J'enregistrais dans mes tableaux serializé des valeurs numérotés mais qui ne commençait pas 0. Du coup pour contrôlé si l'élément 1 existe, c'est desuite plus compliqué et aléatoire...
ex : tab = array( 1=>'6', 3=>'7',...)

J'ai modifié l'index de départ pour mon array s'enregistre comme suit :
ex : tab = array(0=>'6', 1=>'7',...);

Ensuite, c'est devenu plus utile d'utiliser un ARRAY, plutôt qu'un HASH.

Maintenant ça marche. Je souhaiterais juste te montrer mon code histoire de checké si c'est correct (alors je sais pas si ce que j'ai écris est juste, mais ça fonctionne ):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 $sql = "SELECT tab_module AS m FROM scenario WHERE en_cours=1"; $result = $dbh->prepare($sql) or die "Echec Requete $sql : $DBI::errstr"; $result->execute(); $result->bind_columns(undef, \my $m); $result->fetch(); my $tab = unserialize($m); #print Dumper $tab; my $ret=0; my $size = @$tab; #print "$size\n"; for my $elem (@$tab) { #print "$elem\n"; if( "$elem" == "$id") { $ret=1; } }
Bien cordialement,

Pour moi, c'est bon. Pour être un peu plus rigoureux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$sql = "SELECT tab_module AS m FROM scenario WHERE en_cours=1";
$result = $dbh->prepare($sql) or die "Echec Requete $sql : $DBI::errstr";
$result->execute();
$result->bind_columns( undef, \my $m );
$result->fetch();
 
my $tab = unserialize($m);
 
#print Dumper $tab;
 
my $ret  = 0;
my $size = scalar @{$tab};
 
#print "$size\n";
for my $elem ( @{$tab} ) {
 
  #print "$elem\n";
  if ( "$elem" == "$id" ) {
    $ret = 1;
  }
}

Code:

my $size = scalar @{$tab};

et
@{$tab} au lieu de @$tab, même si les deux fonctionnent.

Voilà, n'hésite à mettre le fil en résolu.