Re^4: array refernce as hash value


Welcome to the Monastery
	PerlMonks

Re^4: array refernce as hash value

by Crian (Curate)

on Jul 22, 2009 at 10:41 UTC ( [id://782243]=note: print w/replies, xml )

Need Help??

in reply to Re^3: array refernce as hash value
in thread array refernce as hash value

And what is youre problem with this?

#!/usr/bin/perl
use strict;
use warnings;

my %hash_merge;

while (<DATA>) {
    chomp;
    my ($key, $value) = split /\|/, $_;
    push @{$hash_merge{$key}}, $value;
    print "key for $key merge values: ", $hash_merge{$key}->[0], "\n";
}

use Data::Dumper;
print Dumper \%hash_merge;

__DATA__
9344220001|sei10720013,21/07/2009-00-00-00,23/07/2009-12-34-44
9344220001|sei10720014,23/07/2009-20-00-23
[download]

prints

key for 9344220001 merge values: sei10720013,21/07/2009-00-00-00,23/07
+/2009-12-34-44
key for 9344220001 merge values: sei10720013,21/07/2009-00-00-00,23/07
+/2009-12-34-44
$VAR1 = {
          '9344220001' => [
                            'sei10720013,21/07/2009-00-00-00,23/07/200
+9-12-34-44',
                            'sei10720014,23/07/2009-20-00-23'
                          ]
        };
[download]

Is this, what you want, or is it not, what you want? In the latter case, what exactly do you want to have as result?