Re: Hash arrays

Something like this?:

use warnings;
use strict;
use Data::Dumper;

my %family_hash;

while (<DATA>) {
    my ( $key, @values ) = split /\s/, $_;
    push @{ $family_hash{$key} }, @values;
}

print Dumper \%family_hash;

__DATA__
father male 65 Engineer
mother female 60 home_engineering
son male 28 musician
daughter female 19 software_engineer
[download]

Output:

$VAR1 = {
          'son' => [
                     'male',
                     '28',
                     'musician'
                   ],
          'daughter' => [
                          'female',
                          '19',
                          'software_engineer'
                        ],
          'father' => [
                        'male',
                        '65',
                        'Engineer'
                      ],
          'mother' => [
                        'female',
                        '60',
                        'home_engineering'
                      ]
        };
[download]

You should see perldsc, HASHES-OF-ARRAYS

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Comment on Re: Hash arrays Select or Download Code

Replies are listed 'Best First'.
Re^2: Hash arrays by BillKSmith (Monsignor) on Dec 26, 2012 at 14:50 UTC
`push @{ $family_hash{$key} }, @values;` I prefer `$family_hash{$key} = [@values];` [download] Bill	[reply] [d/l] [select]
Re^3: Hash arrays by NetWallah (Canon) on Dec 26, 2012 at 16:30 UTC
Yes - that looks cleaner, but it is not the equivalent. Your code overwrites the contents of $family_hash{$key} while the OP's appends. So, if the $key appears more than once in the input data sequence, all but the last will be clobbered by your code. "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest." -Confucius	[reply]