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


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

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

by Anonymous Monk

on Jan 25, 2013 at 12:50 UTC ( [id://1015338]=note: print w/replies, xml )

Need Help??

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

Are you quite certain you don't really want a Hash of Hashes?

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

Replies are listed 'Best First'.

Re^2: Can I create hash dynamically by looping through an array? The hash name should be the array element
by punch_card_don (Curate) on Jan 25, 2013 at 14:19 UTC

#!/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]

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.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom