DBI - perl résultat bizarre

Version imprimable

Hello,

j'ai ce bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $BaseDeDonnees = "xxx";
my $NomHote       = "localhost";
my $login         = "root";
my $MotDePass     = "";
 
my $dbp = DBI -> connect( " DBI:mysql:$BaseDeDonnees;$NomHote ",
    $login, $MotDePass )
    or die " Connection impossible à la base de donnees $BaseDeDonnees ! " ;
 
$SQL = ( ' SELECT colonne_1 FROM MaTable WHERE colonne_3 = "$var" ' ) ;
my $tata = $dbp -> prepare ( $SQL ) ;
 
  $dbp->disconnect();
 
if ($tata){print $tata."\n";}

Qu'est ce qui peut me donner un résultat de type :

DBI::st=HASH(0x1cf3f24) ? :calim2:

Merci ;)

10/06/2010, 15h42
Beniou

Bonjour,

La fonction "prepare" n'exécute pas ta requête : il manque l'appel à la fonction "execute" pour effectivement faire ton select. Puis de parcourir les résultats avec des méthodes comme "fetchall_arrayref()" par exemple (il en existe d'autres).

Pour de plus amples informations :
Regarde la doc sur DBI : http://search.cpan.org/~timb/DBI/DBI.pm
plus un tuto : http://djibril.developpez.com/tutoriels/perl/perl-dbi/
10/06/2010, 15h48
PadawanInPerl

erreur
erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my $BaseDeDonnees = "biblioperio";
my $NomHote       = "localhost";
my $login         = "root";
my $MotDePass     = "";
 
my $dbp = DBI->connect( "DBI:mysql:$BaseDeDonnees;$NomHote",
    $login, $MotDePass)
    or die "Connection impossible à la base de donnees $BaseDeDonnees !";
 
$SQL = ('SELECT titre-propre FROM titre WHERE issn="$issn"');
my $tata = $dbp -> prepare($SQL);
my $sth = $dbp -> execute($tata);
 
$dbp->disconnect();
 
if ($tata){print $tata."\n";}
 
 
}

message

can't locate object methode execute....:cry:

C'est plutôt cela qu'il faut faire :
Code:

1 2 3 my $sth = $dbp->prepare($SQL); my $query_res = $sth->execute();

Pour compléter histoire de :

Par exemple avec la méthode fetchall_array_ref on récupère la référence sur le tableau contenant le résultat de la requête (il en existe d'autres regarde le module DBI) :
Code:

1 2 3 4 5 6 7 8 9 10 11 my $sth = $dbp->prepare($SQL) or die "$DBI::errstr";; my $query_res = $sth->execute(); if(!$query_res){ die "$DBI::errstr"; } my $ref_result = $sth->fetchall_arrayref() or die "$DBI::errstr"; foreach my $result(@$ref_result){ print $result->[0]."\n"; }
Ici je n'affiche que le premier élément de ta requête à savoir normalement le titre-propre

Exemple avec fetchall_hashref :
Code:

1 2 3 4 5 6 7 8 9 10 my $sth = $dbp->prepare($SQL) or die "$DBI::errstr";; my $query_res = $sth->execute(); if(!$query_res){ die "$DBI::errstr"; } my $ref_result = $sth->fetchall_hashref(); while( my $result($sth->fetchall_hashref())){ print $result->{titre-propre}."\n"; }

15/06/2010, 09h06
PadawanInPerl

Merci Beniou...je travaille dessus :ccool: