Discussion :

[jj77]

Bonjour,
Je cherche une aide pour creer un table de hash. Débutant dans perl , je voudrai creer une table à partir d'un fichier , consulter les éléments et pouvoir inserer des éléments et sous éléments à postériori.

nature de mon fichier en entrée.
N° de produit,poid,prix,couleur1,couleur2,couleur3,couleur4

Merci d'avance pour votre aide.
JJ

[mobscene]

je suppose que ton fichier est multiligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;
    }
}

Cela produit un hash comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
$foo = {
     numero_produit = {
         poid => undef,
         prix => undef,
         couleur1 => undef,
         couleur2 => undef,
         couleur3 => undef,
         couleur4 => undef
    }
};

voilou