Arrays & Hashes

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

Is that possible to create a hash and each element in this hash would be an array. If there's what is the way to access elements of array? Thank you. Little Update: It gets a little more complicated: I need to read a file which has: email\tdomain email\tdomain I would like to create a hash with keys that are domains and emails part of array of different domains.

Comment on Arrays & Hashes

Replies are listed 'Best First'.
Re: Arrays & Hashes by friedo (Prior) on Aug 18, 2005 at 18:48 UTC
You can create hashes of arrayrefs easily: `my %hash = ( foo => [ 0,1,2 ], bar => [ 7,8,9 ] );` [download] To access individual elements: `my $element = $hash{foo}[2];` [download] For more, see perldsc.	[reply] [d/l] [select]
Re: Arrays & Hashes by Zaxo (Archbishop) on Aug 18, 2005 at 18:51 UTC
Certainly, make the hash values be references to arrays. We call that a HoA. `my %hoa = ( alpha => ['A' .. 'Z','a' .. 'z'], numeric => [0 .. 9], );` [download] You can get at the array elements with multiple indexing: `my $char = $hoa{'alpha'}[42];` See perldsc and perllol for more on perl's deeper data structures. After Compline, Zaxo	[reply] [d/l] [select]
Re: Arrays & Hashes by Transient (Hermit) on Aug 18, 2005 at 18:51 UTC
No, but you can create a hash of array refs... see perlref and perlreftut. Here's an example: `my $hash_of_arrays = { array1 => [ 1, 2, 3 ], array2 => [ 'a', 'b', 'c' ] }; foreach my $key ( %$hash_of_arrays ) { print "Key: $key\n"; foreach my $array_element ( @$key ) { print "Array Element: $array_element\n"; } }` [download] (Untested)	[reply] [d/l]
Re: Arrays & Hashes by artist (Parson) on Aug 18, 2005 at 19:33 UTC
`use Data::Dumper; while(<DATA>){ chomp; my ($email,$domain) = split /\t/; push @{$hash{$domain}},$email; } print join "\n", keys %hash,"\n"; print "Email:",$hash{'yahoo.com'}[0].'@yahoo.com'; __DATA__ ahlnpstx gmail.com dghjklorsvwy hotmail.com cdegijlmqrstvwxz yahoo.com abegijknostv yahoo.com abcefghjlqrtuyz hotmail.com acghiknoprux hotmail.com abceghlmrstwxy gmail.com cdehiklmnqtwxyz gmail.com bdjklmortvw hotmail.com bdegjkmrsuxz gmail.com` [download] --Artist	[reply] [d/l]

Back to Seekers of Perl Wisdom