Re: Different hashes?


Don't ask to ask, just ask
	PerlMonks

Re: Different hashes?

by tcf22 (Priest)

on Mar 26, 2004 at 15:04 UTC ( [id://340033]=note: print w/replies, xml )

Need Help??

in reply to Different hashes?

You are overwriteing the key in %AllProducts every loop. You need to make the hash value an array ref then push onto it.

Try this:

foreach my $line(@ProductArray)
{
  my ($Category, $ID, $Name, $Type, $Size) = split( / /, $line );

  unless(exists $AllProducts{$Category}){
    $AllProducts{$Category} = [];
  }
  push(@{$AllProducts{$Category}}, $ID, [$Name, $Type, $Size]);

  print OUTPUT Dumper(\%AllProducts);
}
[download]

- Tom