1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| # On ouvre le fichier
open(FILE, "fichier.ext") or die 'Erreur :s $!';
flock(FILE,2); # On vérouille le fichier
my @data = <FILE>; # injecte le cotenue du fichier dans le tableau
flock(FILE, 8); # On supprime le verrou
close(FILE); # Ferme le fichier
my $hash = {};
# On fait une boucle
foreach my $ligne ( @data )
{
# On découpe chaque ligne en fonction du séparateur ','
my @tab = split /,/, $ligne;
# scalar retourne le nombre d'éléments d'une liste
for (my $i = 1; $i < scalar(@tab); $i++)
{
# Le n° du produit sert de clef
# Tu peut mettre ce que tu veut a la place de undef biensur :)
$hash->{$tab[0]}{$tab[$i]} = undef;
}
} |
Partager