Merging an array into an AoH

neniro has asked for the wisdom of the Perl Monks concerning the following question:

I've already got a solution for this problem, but I'm still thinking about different way to do it (using map)?

#!/usr/bin/perl

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

my $box = [
            { id => 'q01' },
            { id => 'q02' },
            { id => 'q03' },
          ];

my @results = qw ( foo bar buz );

my $i = 0;
for (@$box) {
  $_->{value} = $results[$i++];
}

print Dumper($box);
[download]

Comment on Merging an array into an AoH Download Code

Replies are listed 'Best First'.
Re: Merging an array into an AoH by BrowserUk (Patriarch) on May 21, 2004 at 16:09 UTC
If you don't mind throwing away @results, you could do `$_->{id} = shift @results for @box;` [download] Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "Think for yourself!" - Abigail	[reply] [d/l]
Re: Re: Merging an array into an AoH by rjray (Chaplain) on May 21, 2004 at 20:36 UTC
Except that should be: `$_->{value} = shift @results for @box;` He's assigning the data from `@results` to the value key. id is already in use. (Still, the best solution of the lot :-). `--rjray`	[reply] [d/l]
Re: Merging an array into an AoH by diotalevi (Canon) on May 21, 2004 at 15:54 UTC
Your index and increment ought not to be separate from your loop. That's gross. `for my $ix ( 0 .. $#$box ) { $box->[ $ix ]{ 'value' } = $results[ $ix ]; }` [download]	[reply] [d/l]
Re: Merging an array into an AoH by geekgrrl (Pilgrim) on May 21, 2004 at 16:39 UTC
Are those ids unique? They look like it. If so, I think a hash of hashes would be a better data structure for your problem. `my $box = { q01 => {}, ... q03 => {} }; #this should keep them in the right order my @sorted_keys = sort {lc $a cmp lc $b} keys %{$box} ; for my $id (@sorted_keys) { $box->{$id}{value} = shift @results; }` [download]	[reply] [d/l]
Re: Re: Merging an array into an AoH by neniro (Priest) on May 21, 2004 at 16:53 UTC
I prefer an AoH, cause I can use them directly within HTML::Template. The solutions above ar quite cool, especially BrowserUKs. Thanks a lot!	[reply]


go ahead... be a heretic
	PerlMonks