A Simple hash question

chinamox has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: A Simple hash question by zigdon (Deacon) on Oct 01, 2006 at 13:20 UTC
The question doesn't have an answer, because your initial hash cannot exist. Hash keys have to be unique, otherwise they overwrite each other. So after your initial assignment, %pets looks like this: `%pets = ( 'pony' => 2, 'cat' => 2, 'dog' => 2 );` [download] Now, if you had the original list assigned into an array, that would be a different story: `#!/usr/bin/perl -w use strict; my @pets = ("dog", 1, "cat", 2, "pony", 2, "dog", 2); my %pets; while (@pets) { my $key = shift @pets; my $val = shift @pets; $pets{$key} += $val; } foreach (sort keys %pets) { print "$_: $pets{$_}\n"; }` [download] Hope that helps! -- zigdon	[reply] [d/l] [select]
Re^2: A Simple hash question by chinamox (Scribe) on Oct 01, 2006 at 15:45 UTC
Thank you! I will try it with the array and then pass it into a hash for a later opperation.	[reply]
Re: A Simple hash question by marto (Cardinal) on Oct 01, 2006 at 13:04 UTC
Perhaps you should read the basic datatypes, three from the Tutorials section of this site. Hope this helps. Martin	[reply]
Re: A Simple hash question by CountZero (Bishop) on Oct 01, 2006 at 14:40 UTC
`use Data::Dumper; %pets = ("dog", 1, "cat", 2, "pony", 2, "dog", 2,); print Dumper(\%pets); $pets{dog}=3; print Dumper(\%pets);` [download] gives you: `$VAR1 = { 'pony' => 2, 'cat' => 2, 'dog' => 2 }; $VAR1 = { 'pony' => 2, 'cat' => 2, 'dog' => 3 };` [download] Data::Dumper is your friend! CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply] [d/l] [select]
Re^2: A Simple hash question by chinamox (Scribe) on Oct 01, 2006 at 15:51 UTC
Thank you, I will read up on Data::Dumper and buy you a drink the next time I run into you in the Gentalman Looser!	[reply]
Re^3: A Simple hash question by CountZero (Bishop) on Oct 01, 2006 at 18:13 UTC
You will easily recognize me as I will be wearing my mirrorshades. CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply]