PERL boucle infini Résolu/Fermé

Question

Bonjour,   

j'ai une boucle "while" qui comme dit dans le titre est infini, j'aimerai l'utiliser pour afficher le résultat de ma requête SQL.  

Voici le code :   

my $dbh = DBI->connect( "dbi:mysql:dbname=$BaseDeDonnees;host=$NomHote;",  
                           $login, $MotDePass )  
                  or die "Connection impossible à la base de donnees $BaseDeDonnees !";  
   
my $lpriv = $dbh->prepare("SELECT nom, link, EPI FROM chizu_link WHERE chizu_link.nom = '$params[0]' OR chizu_link.idani = '$params[0]'ms[1]'");  
      $lpriv->execute() or die "Echec requete
";                    
     while(@priv = $dbh->selectrow_array($lpriv))  
     {  
          $conn->privmsg($event->{'nick'}, "$priv[0] $priv[2] : $priv[1]");  
       $conn->print("<$nick>	| $priv[0] $priv[2] : $priv[1]");  
     }  
$dbh->disconnect();

En PHP je n'ai jamais eu de soucis avec mes boucles.  
J'utilise la dernières version du module DBI et DBD::Mysql . 


Configuration: Windows 7 / Firefox 3.6.3

jeangilles · Answer

Hum ...
J'enlèverai l'@ de
 @priv = $dbh->selectrow_array

Arasutoru-sama · Answer

je viens d'essayer si j'enlève le "@" de "@priv = $dbh->selectrow_array", PERL génère une erreur de plus j'avais oublié de remettre le "my" devant "@priv..." sans il ne compile pas.

Je viens de trouver la solution. Voici le code de la boucle :


while(my @priv = $lpriv->fetchrow_array)
{
  $conn->privmsg($event->{'nick'}, "$priv[0] $priv[2] : $priv[1]");
  $conn->print("<$nick>	| $priv[0] $priv[2] : $priv[1]");
}

PERL boucle infini

2 réponses

Discussions similaires