2010-01-29T11:19:23 bianca Code (perl): (dl ) 1 2 3 for (my $zz = 0; $zz < scalar @PTage; $zz ++) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }
1 2 3
for (my $zz = 0; $zz < scalar @PTage; $zz ++) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }
for my $zz (0 .. scalar @PTage) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }