Re^3: Combining two references

Why don't you try and see what it does?

I'll wait while you try. ......

See, it "just worked". Ain't Perl nice?

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

Comment on Re^3: Combining two references

Replies are listed 'Best First'.
Re^4: Combining two references by Anonymous Monk on Jun 10, 2015 at 15:16 UTC
I know it works using the module: `List::MoreUtils qw/zip natatime/;` [download] Can it be done without it? `#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $data1 = [ { 'NAME' => 'PAUL DY', 'DATE' => '2009-05-05', 'NUMBER' => '00001', }, ]; my $data2 = [ { 'CAR1' => '1b', 'CAR2' => '2b', 'CAR3' => '3b', 'CAR4' => '3d', }, ]; my $new_data; push @{ $new_data }, $data1,$data2; print Dumper $new_data;` [download] And get this, I couldn't: `my $data3 = [ { 'NAME' => 'PAUL DY', 'DATE' => '2009-05-05', 'NUMBER' => '00001', 'CAR1' => '1b', 'CAR2' => '2b', 'CAR3' => '3b', 'CAR4' => '3d', }, ];` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Combining two references
by Anonymous Monk on Jun 10, 2015 at 15:16 UTC

List::MoreUtils qw/zip natatime/;
[download]

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

use Data::Dumper;


my $data1 = [
{
   'NAME' => 'PAUL DY',
   'DATE' => '2009-05-05',
   'NUMBER' => '00001',
 },
 ];

my $data2 = [
  {
    'CAR1' => '1b',
    'CAR2'  => '2b',
    'CAR3' => '3b',
    'CAR4' => '3d',
  },
];

my $new_data;
push @{ $new_data }, $data1,$data2;
print Dumper $new_data;
[download]

my $data3 = [
{
   'NAME' => 'PAUL DY',
   'DATE' => '2009-05-05',
   'NUMBER' => '00001',
    'CAR1' => '1b',
    'CAR2'  => '2b',
    'CAR3' => '3b',
    'CAR4' => '3d',
 },
 ];
[download]

[reply]
[d/l]
[select]