Re: Joining/Merging AoA

use strict;
use warnings;
my @[EMAIL PROTECTED]
 = ( ['id', 'name', 'age'],
       ['1', 'Fred', '24'],
       ['2', 'Frank', '42'],);

my @[EMAIL PROTECTED]
 = ( ['id', '***'],
       ['1', 'm' ],
       ['2', 'm'],);


my %hash_id;

for my $i (1 .. $#b) {
  $hash_id{ $b[$i][0] } = $i;
}

my @[EMAIL PROTECTED]
 @[EMAIL PROTECTED]
 ['id', 'name', 'age', '***'];
for my $i (1 .. $#a) {
  my $b_i =  $hash_id{ $a[$i][0] };

  push @[EMAIL PROTECTED]
 [ @[EMAIL PROTECTED]
 $b[$b_i][1]];
}

use Data::Dumper;
print Dumper \@[EMAIL PROTECTED]
 Tue, Apr 22, 2008 at 1:29 AM, Vishal G <v3gupta@[EMAIL PROTECTED]
> wrote:
>
> Hi Guys,
>
>  I have a little complicated problem...
>
>  I have two arrays
>
>  @[EMAIL PROTECTED]
 = ( ['id', 'name', 'age'],
>            ['1', 'Fred', '24'],
>            ['2', 'Frank', '42'],
>          );
>
>  @[EMAIL PROTECTED]
 = ( ['id', '***'],
>            ['1', 'm' ],
>            ['2', 'm'],
>          );
>
>  I want to join these two AoA, based on id, so the resulting array will
>  look like this
>
>  @[EMAIL PROTECTED]
 = ( ['id', 'name', 'age', '***'],
>            ['1', 'Fred', '24', 'm' ],
>            ['2', 'Frank', '42', 'm'],
>          );
>
>  Any Ideas?
>
>  Thanks in advance.
>
>
>  --
>  To unsubscribe, e-mail: beginners-unsubscribe@[EMAIL PROTECTED]
>  For additional commands, e-mail: beginners-help@[EMAIL PROTECTED]
>  http://learn.perl.org/
>
>
>