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

**LE NEINDRE** · 17/08/2005, 09h55

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 !

**Jeh** · 17/08/2005, 11h03

Salut !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
@NbRequete[0]++;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$NbRequete[0]++;

Voici ma solution :

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); 
    $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.