Perl : gestion base de données

Ca ne m'a pas l'air trop difficile, tu ouvre le fichier que tu stockes dans une variable. Ensuite tu split avec le caractère '#' cette chaine dans un tableau. Puis pour chaque éléments du tableau, tu re-split par ',' pour avoir les champs. Un controle et un affichage :

use strict;

my $chaine = ',2,185#"BV2013",1,82#"NA1624",1,0#"BC3041",0,67#"';
my @lignes = split (/\#/,$chaine);
foreach my $lig (@lignes)
{
my @champs = split (/,/,$lig);
if ($champs[0])
{
print "Champ2 = [".$champs[1]."]\n";
print "Champ3 = [".$champs[2]."]\n";
}
else
{
print "vous vous êtes trompé de code !\n";
}
print "----------\n";
}

-= Bobinours =-