Hi all, I want to update a multi-dimensional hash in less lines, and tried to use the slice technique. This works great for a single dimensional hash but i can't seem too do it with a hash of hash. e.g. 1-d hash

%hash = (
    Name => 'myname',
    Number => 'my1234'.
    Rank => 'myrank',
});
[download]

updating the hash using a slice:

@hash{"Name", "Number", "Rank"} = ("Kakarot", "3", "SSJ3");
[download]

or

my @desc = ("Name", "Number", "Rank");
my @vegeta = ("Vegeta", "2", "SSJ2");
@hash{@desc} = @vegeta;
[download]

i'd like to use the slice to add data into a hash of a hash (and depending on the data, a further hash from there onwards). Say, this hash:

my %h = (
        Flinstones => {
                Dad => "Fred",
                Mom => "Wilma",
                Kid => "Pebbles",
                Pet => "Dino"
        },
        Simpsons => {
                Dad => "Homer",
                Mom => "Marge",
                Kid => "Bart",
                Pet => "Santas_Little_helper"
        });

my @desc = ("Dad", "Mom", "Kid", "Pet");
@h{TEST =>{@desc}} = ("Mr", "Mrs", "baby", "none");

foreach my $a (keys %h){
        print "Key 1 => $a\n";

        foreach my $b (keys %{$h{$a}}){
                print "\tKey 2 => $b\n";
                print "\t\tValue => $h{$a}{$b}\n";
        }
}
[download]

This give me an error in printing, but i'm not sure i'm inserting it right?

(#prints existing data fine but...)
Key 1 => TEST
Can't use string ("Mr") as a HASH ref while "strict refs" in use at sl
+ice_hoh2.pl line
[download]

I also tired the referenced approach:

my $href = {
        Flinstones => {
                Dad => "Fred",
                Mom => "Wilma",
                Kid => "Pebbles",
                Pet => "Dino"
        },
        Simpsons => {
                Dad => "Homer",
                Mom => "Marge",
                Kid => "Bart",
                Pet => "Santas_Little_helper"
        }};

my $desc = ["Dad", "Mom", "Kid", "Pet"];
@{$href->{TEST}->{[@$desc]}} = ("Mr", "Mrs", "baby", "none");
[download]

but this has referenced data showing in the output. Not quite sure how it holds up in the hash :s

Key 1 => TEST
Can't use string ("Mr") as a HASH ref while "strict refs" in use at sl
+ice_hoh2.pl line 35.
[download]

Where am i going wrong here?, i can get it done in multiple lines:

$h{TEST}{Dad} = "dad_TEST";
$h{TEST}{Mom} = "mon_TEST";
$h{TEST}{Kid} = "Kid_TEST";
$h{TEST}{Pet} = "pet_TEST";
[download]

I'd much rather have slicker looking code :)
Essentially, i'll be reading a file to build my hash of hash. in terms of the example , the data would be the family name followed by the values seperated by tabs, a new 'family' for each line:

Family1   Dad1   Mom1   Kid1   Pet1
Family2   Dad2   Mom2   Kid2   Pet2
[download]

Thanks in advance for any help.
Snk1977

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.