Re^2: Can I create hash dynamically by looping through an array? The hash name should be the array element

in reply to Re: Can I create hash dynamically by looping through an array? The hash name should be the array element
in thread Can I create hash dynamically by looping through an array? The hash name should be the array element

Record another vote for a hash of hashes.

#!/usr/bin/perl -w
use strict;
print "Content-type:text/html\n\n";
my @array = qw(var1 var2 var3);
my %HoH = ();
my $i = 0;
foreach my $element (@array){
    $i++;
    $HoH{$element} = { 'key'.$i.'1', 'value'.$i.'1', 'key'.$i.'2', 'va
+lue'.$i.'2', 'key'.$i.'3', 'value'.$i.'3' };
}
foreach my $key1 (sort keys %HoH){
    foreach my $key2 (sort keys %{ $HoH{$key1} }){
        print "<br>$key1 > $key2 > $HoH{$key1}{$key2}\n";
    }
}
[download]

Output:

var1 > key11 > value11
var1 > key12 > value12
var1 > key13 > value13
var2 > key21 > value21
var2 > key22 > value22
var2 > key23 > value23
var3 > key31 > value31
var3 > key32 > value32
var3 > key33 > value33
[download]

Time flies like an arrow. Fruit flies like a banana.

Comment on Re^2: Can I create hash dynamically by looping through an array? The hash name should be the array element Select or Download Code

In Section Seekers of Perl Wisdom