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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ??!!

Pour quelle triste raison ??

Merci pour votre aide et bonne matinée !