Discussion :

[shensi]

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 :

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

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 :

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

[djibril]

Code :

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

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.

[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

[djibril]

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 :

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

my %hash = unserialize($m);

Code :

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

my $hashref = unserialize($encoded);

[shensi]

Code :

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

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 :

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

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

[shensi]

Code :

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

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 ?

[shensi]

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 :

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
$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,

[djibril]

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

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
$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 :

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

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.