Discussion :

[parisien91]

Bonjour,

Voila je fais un script en perl et je dois utilisé une requete, mais le probleme je dois compté le nombre de résultat que la requete me sort pour reutilisé le resultat apres.
Pouvez-vous me dire comment compter le resultat de sortie de ma requete??

Merci d'avance

[Jasmine80]

Bonjour,

Je te souhaite la bienvenue sur ce forum.

Pour interroger MySQL avec Perl, j'utilise le module DBI.
http://search.cpan.org/~timb/DBI-1.604/DBI.pm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use DBI;
...
my $sql = "SELECT $Select FROM $Table WHERE $Where;";
my $sth = $DBconnect->prepare($sql) or print "erreur de preparation SQL\n";
$sth->execute or die "Could not execute SQL statement ... maybe invalid?";
while (@row=$sth->fetchrow_array){
    ...
    }
my $row_number=$sth->rows;
print "Nombre de résultats : $row_number\n";
$sth->finish;
 
$DBconnect->disconnect();

$rows Number of rows processed (if available, else -1)

[parisien91]

Merci beaucoup je me suis inspiré de ta reponse pour a la fin compter le nombre de ligne que la requete me sortait!!

Merci bcp