Discussion :

[frenchlion]

bonjour,

j'ai un petit soucis qui je pense que je déclare mal mon hash dans ma boucle, car a la fin de ma boucle, seule la dernière itération de ma boucle est dans mon hash (j'imagine qu'elle écrase les précédentes)

un peu d'aide svp ?

merci, voici le détail :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use warnings;
 
my $fichier = "file1.txt";
my %old;
 
# le fichier a 3 lignes du genre :
# table1 123 12 333 11 22
# table2 456 13 222 11 22
# table3 789 14 111 11 22
 
open VEILLE, $fichier or die($!);
while(my $line = <VEILLE>) {
	chomp($line);
	my ($segm, $onee, $twoo, $threee, $fourr, $fivee) = split(/\s+/, $line);
 
        # j'imagine que le soucis est ici (je veux créer un hash avec à chaque fois la clef comme etant la variable $segm (table1, table2 etc.)
	%old = ($segm => { 
					   one   => $onee,
					   two   => $twoo,
					   three => $threee,
					   four  => $fourr,
					   five  => $fivee 
					  }
            );
 
}
close(VEILLE);
 
# ici, seulement la table3 s'affiche
foreach my $tab (keys %old) {
    foreach my $type (keys %{$old{$tab}}) {
        print "$tab, $type: $old{$tab}{$type}\n";
    }
}
 
# je peux tester un print comme ça aussi, c pareil
print $old{"table1"}{five}; # marche pas
print $old{"table2"}{five}; # marche pas
print $old{"table3"}{five}; # marche !

est-ce simplement car je recrée un array à chaque fois plutot que d'ajouter (push ?) des entrées dedans ?

merci !

[frenchlion]

résolu mon soucis tout seul, je m'embettais pour rien.. merci qd meme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
while(my $line = <VEILLE>) {
	chomp($line);
	my ($segm, $onee, $twoo, $threee, $fourr, $fivee) = split(/\s+/, $line);
 
	$old{$segm}{one} = $onee;
	$old{$segm}{two} = $twoo;
	$old{$segm}{three} = $threee;
	$old{$segm}{four} = $fourr;
	$old{$segm}{five} = $fivee;
 
}

[Philou67430]

Perl autorise le déréférencement à l'aide de l'opérateur "->" un peu à la manière de C.
Lorsqu'un symbole est une référence, j'aime bien utiliser cette manière de déréférencer qui la distingue de l'accès à une valeur d'un hash.

Exemples :

Code :

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

1
2
3
4
my ($hash_ref, %hash) = ({toto => 1}, toto => 2, titi => { momo => 10 });
say "Une valeur de \%hash: ", $hash{toto};
say "Une valeur de \$hash_ref:", $hash_ref->{toto}, " peut s écrire aussi ", $$hash_ref{toto}; # ou encore ${$hash_ref}{toto}
say "Une valeur de \%hash{titi}: ", $hash{titi}->{momo}, " peut s écrire aussi ", $hash{titi}{momo};

Dans ton cas, j'aime bien utiliser :

Code :

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

$old{$segm}->{one} = $onee;

au lieu de :

Code :

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

$old{$segm}{one} = $onee;

car $old est bien un hash, mais que $old{$segm} est une référence de hash et non un hash.

Mais bien sûr, ton écriture est légale.

[frenchlion]

C'est bon à savoir, je te remercie