créer une double hashtable

hum déjà tu mixes les différents types de variables: si ton objet n'est pas défini, tu le set avec $example, mais ensuite tu récupères en tant que list...

essaies donc ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
my $thisid = "id";
my $startarg = "start";
my $example = "example";
 
my %sentencesG;
 
for (my $i = 0; $i < 2; $i++){
	if (defined($sentencesG{$thisid}{$startarg})){
		my @tabG = @{$sentencesG{$thisid}{$startarg}};
		push @tabG, $example;
		for my $tG (0..$#tabG){
			print "$tabG[$tG]\n";
		}
		print "\n";
		$sentencesG{$thisid}{$startarg} = \@tabG;
		my @toto = @{$sentencesG{$thisid}{$startarg}};
		print "$toto[0]\n";
		print "$toto[1]\n\n";
	}
	else{
		push @{$sentencesG{$thisid}{$startarg}}, $example;
	}
}

les principaux changements sont

le push dans le else, comme ça tu initialises une liste, et non pas un objet
les casts quand tu récupères ta liste
le stockage de la référence à la liste

note que tu peux remplacer

Code:

1
2
3
4
5
6
7
8
 
my @tabG = @{$sentencesG{$thisid}{$startarg}};
		push @tabG, $example;
		for my $tG (0..$#tabG){
			print "loop $i $tabG[$tG]\n";
		}
		print "\n";
		$sentencesG{$thisid}{$startarg} = \@tabG;

par

Code:

1
2
3
4
5
 
push @{$sentencesG{$thisid}{$startarg}}, $example;
		for my $tG (0..(scalar @{$sentencesG{$thisid}{$startarg}} - 1)){
			print $sentencesG{$thisid}{$startarg}[$tG]."\n";
		}

mais ça devient beaucoup moins lisible ^^