Salut,

Je bloque depuis 2 jours sur un bout de code Perl - Oracle, que je n'arrive pas à reproduire chez moi avec MySQL.

$sel = $dbh->prepare("select id, appli, cube, serveur, typet from su2qttreat where id in (select min(id) from su2qttreat where flag = 0 and typet <> 'STARSCHEMA')") || gestion_erreur("$nom_procedure - Problème préparation requête : $DBI::errstr");

$sel->execute || gestion_erreur("$nom_procedure - Problème execute requête : $DBI::errstr");

$sel->bind_columns(undef, \$id, \$appli, \$cube, \$serveur, \$type);

$sel->fetch();

if ($type eq 'SCRIPT') { # Attention pas de == pour tester l'égalité !
print "SCRIPT demandé \n";
} elsif ($type eq 'DONNEES') {
print "DONNEES demandé \n";
} else {
my $lg = length($type);
print "aucun : $type $lg \n";
}

$sel->finish; # On ferme la requête


Bref, rien d'extranordinaire, sauf qu'à l'exécution j'ai ça :

aucun : DONNEES 14

Donc je récupère je ne sais pourquoi un truc qui fait le double de la chaine dans la table donc forcément ma comparaison foire :-(

J'avoue que je ne vois pas comment/pourquoi j'arrive à ça.

Merci de votre aide.

Poste le Monday 19 June 2006 08:59:35