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

sorry some typo mistake I am trying to do somthing like this 
 open my $fh, '<', $filename or die "$filename: $!\n"; while (<$fh>) {
+ chomp; ($key, $value) = split /\|/, $_; push @{$hash_merge{$key}},$v
+alue; print "key for $key merge values $hash_merge{$key}->[0]1 \n";

 #file looks like 

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

[download]

Replies are listed 'Best First'.
Re^4: array refernce as hash value
by ashish.kvarma (Monk) on Jul 22, 2009 at 10:53 UTC
    Are you looking for something similar to : 
    use strict;
use Data::Dumper;

my %hash;
while (<DATA>) {
    chomp;
    my ($key, $value) = split /\|/, $_;
    my @values = split /,/, $value;
    if (defined $hash{$key}) {
        push @{$hash{$key}}, \@values;
    }
    else {
        $hash{$key} = [\@values];
    }
}

print Dumper \%hash;

__DATA__
9344220001|sei10720013,21/07/2009-00-00-00,23/07/2009-12-34-44
9344220001|sei10720014,23/07/2009-20-00-23
9344220002|sei10720015,21/07/2009-00-00-00,23/07/2009-12-34-44
9344220003|sei10720016,23/07/2009-20-00-23
9344220003|sei10720017,23/07/2009-20-00-23
9344220003|sei10720018,23/07/2009-20-00-23

    [download]
    Output is as followed: 
    $VAR1 = {
          '9344220003' => [
                            [
                              'sei10720016',
                              '23/07/2009-20-00-23'
                            ],
                            [
                              'sei10720017',
                              '23/07/2009-20-00-23'
                            ],
                            [
                              'sei10720018',
                              '23/07/2009-20-00-23'
                            ]
                          ],
          '9344220002' => [
                            [
                              'sei10720015',
                              '21/07/2009-00-00-00',
                              '23/07/2009-12-34-44'
                            ]
                          ],
          '9344220001' => [
                            [
                              'sei10720013',
                              '21/07/2009-00-00-00',
                              '23/07/2009-12-34-44'
                            ],
                            [
                              'sei10720014',
                              '23/07/2009-20-00-23'
                            ]
                          ]
        };

    [download]
    I hope this helps.
    Regards,
    Ashish
[reply]
[d/l]
[select]
    A reply falls below the community's threshold of quality. You may see it by logging in.
Re^4: array refernce as hash value
by Crian (Curate) on Jul 22, 2009 at 10:41 UTC

    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?

[reply]
[d/l]
[select]
Re^4: array refernce as hash value
by Anonymous Monk on Jul 22, 2009 at 10:46 UTC
    in that case how will i get the first element in the first array here how can i get sei10720013??
[reply]

In Section Seekers of Perl Wisdom