Mega Code Archive

 

Categories / Perl / Array

 

Build 4-element array, each with references to another array

@words = (one, two, three, four, five, six, seven, eight, nine, ten, ); @codeNumbers = (1,2,3,4,5,6,7,8,9,10); @codeLetters = (A,B,C,D,E,F,G,H,I,J); @codes[0] = \@words; @codes[1] = \@codeNumbers; @codes[2] = \@codeLetters; @codes[3] = \@myValue; for ($index = $codes[3]->[1]->[0] ; $index <= $#{$codes[3]->[1]}; $index++){     $codeIndex = $codes[1][$index];     $codeWord = $codes[0][$codeIndex];     $codeLetter = $codes[2]->[$codes[1][$index]];     print "$codeWord\t : $codeLetter\n"; }