[PERL] Problème lecture/écriture dans un fichier

Bonjour, voilà mon souci:

A chaque fois que je fais une connexion à ma base de données, je voudrais incrémenté un compteur situé dans un fichier.
Je fais comme ça (la fonction Connexion() appartient à un package qui est importé dans toutes mes pages cgi).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub Connexion() { my $dbh = DBI->connect("DBI:mysql:database=$Base;host=$Host", "$User", "$Password", {'RaiseError' => 1}); open (fic,"$RequeteFile") or warn "Impossible d'ouvrir $RequeteFile en lecture $! \n"; my @NbRequete=<fic>; close (fic); open (fic,">$RequeteFile") or warn "Impossible d'ouvrir $RequeteFile en écriture $! \n"; print fic @NbRequete[0]++; close (fic); return $dbh; }

---

Or rien ne s'écrémente quand la fonciton est appelée ??!! :oops: :oops:

Pour quelle triste raison ??

Merci pour votre aide et bonne matinée !

Salut !

Code:

---

1 2	@NbRequete[0]++;

---

n'est pas très correct, il vaut mieux utiliser :

Code:

---

$NbRequete[0]++;

---

Voici ma solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub Connexion() { my $dbh = DBI->connect("DBI:mysql:database=$Base;host=$Host", "$User", "$Password", {'RaiseError' => 1}); open (fic,"$RequeteFile") or warn "Impossible d'ouvrir $RequeteFile en lecture $! \n"; my @NbRequete=<fic>; close (fic); $NbRequete[0]++; open (fic,">$RequeteFile") or warn "Impossible d'ouvrir $RequeteFile en écriture $! \n"; print fic $NbRequete[0]; close (fic); return $dbh; }

---

Perl ne doit pas interpréter l'incrémentation de ta variable quand tu écris dans un fichier. J'ai eu le cas pour d'autres utilisations. Mieux vaut décomposer les actions quand celles-ci ne fonctionnent pas en une seule ligne.

Parfait ça fonctionne bien.
Merci pour ton aide et tes explications.

Bonne journée à toi et ..... ta citation est géniale !!!

tag resolu :D

oups désolé :oops: