Re: Joining/Merging AoA

[Li, Jialin]

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', 'age', 'sex'];
for my $i (1 .. $#a) {
  my $b_i =  $hash_id{ $a[$i][0] };

  push @merged, [ @{$a[$i]}, $b[$b_i][1]];
}

use Data::Dumper;
print Dumper [EMAIL PROTECTED];

__END__

On Tue, Apr 22, 2008 at 1:29 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'],
>            ['1', 'm' ],
>            ['2', 'm'],
>          );
>
>  I want to join these two AoA, based on id, so the resulting array will
>  look like this
>
>  @c = ( ['id', 'name', 'age', 'sex'],
>            ['1', 'Fred', '24', 'm' ],
>            ['2', 'Frank', '42', 'm'],
>          );
>
>  Any Ideas?
>
>  Thanks in advance.
>
>
>  --
>  To unsubscribe, e-mail: [EMAIL PROTECTED]
>  For additional commands, e-mail: [EMAIL PROTECTED]
>  http://learn.perl.org/
>
>
>

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/