
BigRich
Novice
Jan 21, 2001, 11:45 AM
Post #7 of 9
(2902 views)
|
|
Re: Accessing a array of arrays within a hash
[In reply to]
|
Can't Post
|
|
Here are some simple examples that may help. # Create a hash of arrays of arrays ## Define the second array of key 3 @k3a2vals = ('k3a2v1','k3a2v2','k3a2v3','k3a2v4'); %HofAsofAs = ( key1 => [['k1a1v1','k1a1v2','k1a1v3','k1a1v4'],['k1a2v1','k1a2v2','k1a2v3','k1a2v4']], key2 => [['k2a1v1','k2a1v2','k2a1v3','k2a1v4'],['k2a2v1','k2a2v2','k2a2v3','k2a2v4']], key3 => [['k3a1v1','k3a1v2','k3a1v3','k3a1v4'],[@k3a2vals]] ); #accessing the arrays of arrays in a key # and the values in each of those arrays $cnt = 1; $key_to_access = 'key3'; foreach $array_ref (@{$HofAsofAs{$key_to_access}}) { print "Array number $cnt in $key_to_access contains:<p>"; foreach (@$array_ref) { print $_.", "; } print "<p>"; $cnt++; } #accessing array values within the arrays print "The elements in key three array 2 are @{$HofAsofAs{'key3'}[1]} <p>"; #accessing a specified value from all of the arrays $array_val = 3; # get the 4th element of all arrays print "The 4th value of each array is:<p>"; foreach $HoAkey (keys %HofAsofAs) { my $array_num = 0; foreach (@{$HofAsofAs{$HoAkey}}) { print $HofAsofAs{$HoAkey}[$array_num][$array_val].", "; $array_num++; } } BigRich
|