push values of multidimensional array to an array in perl

Question

I have this multidimensional hash %HASH:

 'BBBL' => {
',                   'VALUE' => 'CASH
                     'DATES' => '20163112'
                      },
  'AAA' => {
',                   'VALUE' => '70
                     'DATES' => '20170602'
  'CCC' => {
',                   'VALUE' => '70
                     'DATES' => '20170602'

and for each of AAA BBB and CCC i want to push the DATES into an array.

foreach my $symbol (keys %HASH){
     my @dates = values %HASH;
    }

but that gives me:

            'VALUE' => 'CASH
            'DATES' => '20163112'
          },
          {
',          'VALUE' => '90
            'DATES' => '20170802'
          },
          {
',          'VALUE' => '90
            'DATES' => '20171702'
          }
        ];

and I have no idea how to get just the dates.

Note that your values seem to be terminated with a Carriage Return?! — ikegami
– ikegami, Commented Sep 23, 2017 at 20:34

melpomene · Accepted Answer · 2017-09-23 20:36:27Z

4

You could do it like this:

my @dates;
for my $symbol (keys %HASH){
    push @dates, $HASH{$symbol}{DATES};
}

This could be simplified to:

my @dates;
for my $subhash (values %HASH){
    push @dates, $subhash->{DATES};
}

Which in turn could be rewritten as:

my @dates = map $_->{DATES}, values %HASH;

Side note: It seems like your VALUE fields contain a carriage return (CR, \r) at the end. If you used Data::Dumper to produce your output, you might want to set $Data::Dumper::Useqq = 1; to make the dump more readable.

answered Sep 23, 2017 at 20:36

melpomene

86.2k8 gold badges96 silver badges154 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

push values of multidimensional array to an array in perl

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related