And as this is the Perl beginners list, please don't top post.
2008/4/24 Andrew Curry <[EMAIL PROTECTED]>:
> As this is a beginners list are you going to explain...
>
>
> push my @c, [EMAIL PROTECTED] @a}];
> push @{$c[0]}, (@{shift @b})[1];
>
> $c[$_->[0]] = [ @{$_} ] while $_ = shift
e [mailto:[EMAIL PROTECTED]
Sent: 24 April 2008 14:53
To: Vishal G; Perl List
Subject: Re: Joining/Merging AoA
On Tue, Apr 22, 2008 at 2:28 AM, Vishal G <[EMAIL PROTECTED]> wrote:
> Hi Guys,
>
> I have a little complicated problem...
>
> I have two arrays
>
> @a = ( [&#
On Tue, Apr 22, 2008 at 2:28 AM, Vishal G <[EMAIL PROTECTED]> wrote:
> Hi Guys,
>
> I have a little complicated problem...
>
> I have two arrays
>
> @a = ( ['id', 'name', 'age'],
>['1', 'Fred', '24'],
>['2', 'Frank', '42'],
> );
>
> @b = ( ['id', 'sex'],
>
use strict;
use warnings;
my @a = ( ['id', 'name', 'age'],
['1', 'Fred', '24'],
['2', 'Frank', '42'],);
my @b = ( ['id', 'sex'],
['1', 'm' ],
['2', 'm'],);
my %hash_id;
for my $i (1 .. $#b) {
$hash_id{ $b[$i][0] } = $i;
}
my @merged;
push @merged, ['id', 'name', '
Hi Guys,
I have a little complicated problem...
I have two arrays
@a = ( ['id', 'name', 'age'],
['1', 'Fred', '24'],
['2', 'Frank', '42'],
);
@b = ( ['id', 'sex'],
['1', 'm' ],
['2', 'm'],
);
I want to join these two AoA, based on i
Hi Guys,
I have a little complicated problem...
I have two arrays
@a = ( ['id', 'name', 'age'],
['1', 'Fred', '24'],
['2', 'Frank', '42'],
);
@b = ( ['id', 'sex'],
['1', 'm' ],
['2', 'm'],
);
I want to join these two AoA, based on i
