Re: Adding an new element to array.

Here is one good way to do it, but as always, tim toady.

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

$Data::Dumper::Sortkeys=1;

my $data = {
          'DATE' => '2013-04-25',
          'TW' => '1',
          'REF' => '1234567',
          'ACC' => '33456790'
        };

$data = {%$data, DOC => 'EMAIL'};

print Dumper($data);
[download]

Alternatively, to add the second hash to the first, do something like this:

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

$Data::Dumper::Sortkeys=1;

my $data = {
          'DATE' => '2013-04-25',
          'TW' => '1',
          'REF' => '1234567',
          'ACC' => '33456790'
        };
my $new = {
          DOC => 'EMAIL' ## NOTE: no need for quotes on thing
                         ##       to the left of `=>'
        };

$data = {%$data, %$new};

print Dumper($data);
[download]

Comment on Re: Adding an new element to array. Select or Download Code

Replies are listed 'Best First'.
Re^2: Adding an new element to array. by Anonymous Monk on Aug 21, 2013 at 18:19 UTC
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!	[reply] [d/l]
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]