requete SQL dans script Perl

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

Bonjour,

Je te souhaite la bienvenue sur ce forum. :D

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

Code:

---

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();

---

Citation:

---

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

---

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