Re^2: Adding an new element to array.

in reply to Re: Adding an new element to array.
in thread Adding an new element to array.

OK may be I am not been clear but this is the reason:

my $data = $dbh->exec("select * ......");

if($data) {

   my $more_data = $dbh ->exec("select * ....");

   if($more_data) {
     my $name = $more_data->[0]{ NAME };
     push @{$data}, {doc_type => $name};
   }

}

print Dumper(@$data);
[download]

Thanks!

Comment on Re^2: Adding an new element to array. Download Code

Replies are listed 'Best First'.
Re^3: Adding an new element to array. by poj (Abbot) on Aug 21, 2013 at 19:13 UTC
`#!perl use strict; use Data::Dump 'pp'; my $data = [{ 'DATE' => '2013-04-25', 'TW' => '1','REF' => '1234567', 'ACC' => '33456790' }]; my $more_data = [{'DOC1' => 'EMAIL1','DOC2' => 'EMAIL2'}]; my @keys = keys %{$more_data->[0]}; @{$data->[0]}{@keys} = @{$more_data->[0]}{@keys}; pp @$data;` [download] poj	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Adding an new element to array.
by poj (Abbot) on Aug 21, 2013 at 19:13 UTC

#!perl
use strict;
use Data::Dump 'pp';
my $data = [{ 'DATE' => '2013-04-25',
  'TW'  => '1','REF' => '1234567',
  'ACC' => '33456790' }];
          
my $more_data = [{'DOC1' => 'EMAIL1','DOC2' => 'EMAIL2'}];
my @keys = keys %{$more_data->[0]};
@{$data->[0]}{@keys} = @{$more_data->[0]}{@keys};
pp @$data;
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom