[perl] hash met multiple keys en multiple values

[Klaus_1250]

Ik wil een hash hebben met meerdere keys en meerdere values, waarbij beide (keys en values) arrays zijn.
Nu lukt het me om voor één key met meerdere values te maken, en het lukt me ook meerdere keys voor één value te maken, maar combineren gaat nog niet.
Iemand een idee/oplossing?

[smoking2000]

zoiets?

$hash1{$hash2{$key1}}->{$key2}

[Klaus_1250]

Heb het al... sorry

my %test = map { my $item = pop @$_; map { $_, $item } @$_ }
[("Raspberry","Framboos") => ["pink","roze"]];

[Klaus_1250]

te vroeg gejuigd, maar het scheelt niet veel. Iemand ideeen?

[Verwijderd]

Gaat het je alleen om het initialiseren van een hash op basis van een array met keys en een array met values? Of wil je echt een array als key hebben. Dat laatste kan namelijk niet, je zult dan de array tot een string moeten omvormen.

Maar als het je om het eerste gaat kan je natuurlijk gewoon zoiets doen:

Perl:

foreach my $key ( @keys ) { $test{$key} = shift @values }

[Klaus_1250]

ik heb hem al, dat voorbeeld wat ik gaf was toch goed. wat ik wil is een hash die die meerdere keys heeft voor een value die weer een array is. Dus dat bijvoorbeeld de woorden STOP QUIT EXIT naar dezelfde array verwijzen.

(ik had een hash waarin soms 20 waarde naar dezelfde value (wat weer een array was) wezen. lastig om bij te houden, en ook nog eens 200% langzamer)

[ Voor 26% gewijzigd door Klaus_1250 op 17-01-2003 20:18 ]