Wow ! Merci pour la rapidité de réponse !

En fait je veux inserer le contenu des variables dans une base MySQL ...

J'avais continué à modifier mon code entre temps :

#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;
my($cgi) = new CGI;
print "Content-type: text/html\n\n";

open FICHIER,"< monfichier.log" or die "Le fichier n'existe pas !";
while ($ligne = <FICHIER>)
{
if($ligne =~ ( chaine de recherche que je ne sais pas ecrire )
  {
    my $date = $1;
    my $heure = $2;
    my $elem = $3;
    my $adIP = $4;
    my $statut = $5;
}
}

#Connection à la base de données mysql NomBase
my $db = DBI -> connect (("dbi:mysql:dbname=NomBase;host=localhost;","root","******")) or die "connection impossible!";

#recuperation puis insertion d une donnee
my($date) = $cgi->param("date");
my($heure) = $cgi->param("heure");
my($elem) = $cgi->param("elem");
my($adIP) = $cgi->param("IP");
my($statut) = $cgi->param("Statut");

$db->do("insert into client values ('$date', '$heure', '$elem', '$adIP', '$statut');")|| die "pb de requete : $DBI::errstr";

close FICHIER;

Je ne comprends pas très bien ce que tu veux.

Si tu veux utiliser les valeurs contenus dans ton fichier, pourquoi tu récupères les données depuis un formulaire.

Il faut faire le traitement dans la boucle pour chaque ligne.
Donc tu te connectes à ta base avant la boucle while, et enusite tu applique le traitement pour chaque ligne.

Juste un exemple pour me faire comprendre

#!/usr/bin/perl

use strict;use warnings;
my ($date,$heure,$elem,$adIP,$statut);

while (my $ligne = <DATA>){
($date,$heure,$elem,$adIP,$statut) = split /;/,$ligne;
# dans la boucle on lit chaque ligne
# et ensuite j'affiche le contenu de variables
  print "***** DANS LA BOUCLE *****\n";
  print "\$date  : $date\n";
  print "\$heure : $heure\n";
  print "\$elem  : $elem\n";
  print "\$adIP  : $adIP\n";
  print "\$statut: $statut\n";
}

# à l'exterieur de la boucle
# on affiche seulement la dernière ligne
# le trataitement il faut l'exécuter dans la boucle
  print "===== A L'EXTERIEUR DE LA BOUCLE =====\n";
  print "\$date  : $date\n";
  print "\$heure : $heure\n";
  print "\$elem  : $elem\n";
  print "\$adIP  : $adIP\n";
  print "\$statut: $statut\n";
__END__
2007:02:18;14:55;AG4561_2;192.168.0.27;ok
2007:02:18;15:25;Serveur_X12;192.168.0.231;ok

Ca doit être quelque chose comme ça

#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;

my $cgi = new CGI;
my ($date,$heure,$elem,$adIP,$statut);

print "Content-type: text/html\n\n";

open FICHIER,"< monfichier.log"
    or die "Le fichier n'existe pas ! : $!\n";

#Connection à la base de données mysql NomBase
my $db = DBI -> connect (("dbi:mysql:dbname=NomBase;host=localhost;","root","******"))
                or die "connection impossible!";

while ($ligne = <FICHIER>){
# récupération des éléments
 ($date,$heure,$elem,$adIP,$statut) = split /;/,$ligne;
# et on insere dans la base
  $db->do("insert into client values ('$date', '$heure', '$elem', '$adIP', '$statut')");
          or die "pb de requete : $DBI::errstr";
}# fin de traitement de fichier
close FICHIER;

Salut,

dans ton cas je pense que c'est suffisant d'utiliser

LOAD DATA INFILE 'ton_fichier' INTO TABLE nom_de_table FIELDS TERMINATED BY ';'