Perl et BDD

Fermé
flongo Messages postés 53 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 9 décembre 2009 - 21 avril 2009 à 09:59
Bonjour,

Je dois faire une BDD avec un fichier txt. La particularité c'est que je dois tjrs verifié que la ligne existe. Voici ce que j'ai débuté mais ca fonctionne pas:

#Ouverture du fichier qque je veux mettre en BDD
open FICHIER, "<P:\\Perl\\Message\\test_mess.txt" or die "Ce fichier n'existe pas!";

# Déclaration d'une variable que je veux mettre dans la BDD
my $ident_mess="";

# Déclaration d'une variable qui contient mon fichier txt sous forme de tableau
my @fichier=<FICHIER>;
close (FICHIER);

my $i=0;
my $ligne;

# tant qu'on lit dans le fichier
while ($i<=$#fichier) #Tant que i est inf au dernier indice du tableau
{
my $ligne=$fichier[$i];# ma var ligne est = à l'indice i du tableau fichier
chomp $ligne;
if ($ligne=~/ad/)
{
$ident_mess=substr($ligne,4,5);
#my @tab=split (',',$ligne);#Declaration d'un tableau tab qui contient l'elmt de la var ligne et ayt comme séparateur la ,
#$ident_mess=$tab[$#tab];
}

}
print ($ident_mess);


Quelqu'un pourrait il me debloquer svp?
Merci.
Cdlt