Perl et MySQL

Salut tout le monde,

J'ai un problème assez basique, n'étant pas dévelopeur, je ne comprends pas trop ce qui m'arrrive...

J'ai un script Perl sur Windows qui va faire un count sur une table MySQL en local. Si le résultat (nombre de lignes comptées) n'est pas égal à 0, il faut supprimer les lignes en questions (même clause where).

Apparement j'ai un problème, il n'interpète par le résultat du count comme un numérique ou quelque chose dans ce goût là.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 $countrowstodelete = $dbh ->prepare(" SELECT count(*) FROM $_[0] WHERE TO_DAYS(NOW()) - TO_DAYS(eventtimestamp) > 120"); $countrowstodelete->execute; while ( ($nbcountrowstodelete) =$countrowstodelete->fetchrow() ) { print "Nombre de lignes a supprimer $nbcountrowstodelete !\n" ; } ; # Affiche le nombre de lignes à supprimer if ($nbcountrowstodelete ne '0') { $deleterows = $dbh ->prepare(" delete from transportlog WHERE TO_DAYS(NOW()) - TO_DAYS($_[1]) > $_[2]"); $deleterows->execute; print "Les lignes ont été suprimées.\n"; } else { print "Aucune ligne a supprimer \n"; # Supprime les lignes si leur nombre est différent de 0 };
J'ai le message d'erreur suivant:
Use of uninitialized value in string ne at mysql_epur_function.pl line 116.

Merci d'avance pour votre aide !

Bonjour,
1- c'est quoi la ligne 116 ?

2- En soupconnant que ce soit :
if ($nbcountrowstodelete ne '0')

j'ecrirais plutot
if ($nbcountrowstodelete !=0) # a priori, il s'agit d'un entier.

3- j'ai du mal a comprendre pourquoi cette variable est utilisée dans un while....

En esperant que ca te donnera des pistes...

Sohnic

un "my" me semblerait approprié ici :

Code:

while ( my $nbcountrowstodelete = $countrowstodelete->fetchrow() ) {

@+
Mr6

Voici une solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my $countrowstodelete  = $dbh->prepare ("SELECT count(*) FROM $_[0] WHERE TO_DAYS(NOW()) - TO_DAYS(eventtimestamp) > 120");
$countrowstodelete ->execute();
my $nbcountrowstodelete  = $countrowstodelete->fetchrow() ;
$countrowstodelete->finish();
 
if ($nbcountrowstodelete > 0){
    print "Nombre de lignes a supprimer $nbcountrowstodelete !\n" ; } ;  # Affiche le nombre de lignes à supprimer
    $deleterows = $dbh ->prepare("delete from transportlog WHERE TO_DAYS(NOW()) - TO_DAYS($_[1]) > $_[2]");
    $deleterows->execute;
 
} else {
    print "Aucune ligne a supprimer \n";   # Supprime les lignes si leur nombre est différent de 0
}

Serge

Merci

Excellent, c'est exactement ce que je cherchais, définir la variable avec my et ne pas faire le fetchrow dans une variable résoud le problème.

Merci encore à tous