Bonjour !
J'ai pour but de récuperer les données d'un fichier texte pour pouvoir par la suite les inserer dans une base de données.

Voici un exemple du type de fichier que je souhaite parser:
root@desktop:/data/hey# tail -n 20 tmp/erf/253158/ofi/txt
2007:02:18;14:55;AG4561_2;192.168.0.27;ok
2007:02:18;15:25;Serveur_X12;192.168.0.231;ok

etc etc ..

L'ennui c'est que je n'y connais rien à PERL... Voila ou j'en suis pour l'instant :

#!/usr/bin/perl -w
use strict;
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;
}
}
close FICHIER;

Voila donc je veux récuperer chaque élément qui m'interresse du fichier dans une variable... Le probleme c'est que je ne sais pas écrire la chaine de recherche correspondante ..

Voila, si quelqu'un à une idée c'est tres volontier ! Configuration: Windows XP
Internet Explorer 6.0