Discussion :

[PadawanInPerl]

Hello,


j'ai ce bout de code :

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

Merci

[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/

[PadawanInPerl]

erreur
erreur

[PadawanInPerl]

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

[Beniou]

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

Code :

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

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

[Beniou]

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 :

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

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 :

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

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";
}

[PadawanInPerl]

Merci Beniou...je travaille dessus