Printing all values of an AoH

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

Fellow Monasterians:

We all know how to print the elements of an array:

my @Array = qw (aaaaa bbbbb ccccc);
print @Array;
[download]

but is there an equivalent to print all the values of an AoH (or in this case, a reference to) withOUT iterating over it?

my $AoH = [{ keyname => "aaaaa" },
              { keyname => "bbbbb" },
              { keyname => "ccccc" }];

print $AoH; ???
[download]

Thanks!

—Brad
"Don't ever take a fence down until you know the reason it was put up." G. K. Chesterton

Comment on Printing all values of an AoH Select or Download Code

Replies are listed 'Best First'.
Re: Printing all values of an AoH by ambrus (Abbot) on Oct 16, 2004 at 19:38 UTC
`($,, $\) = ($", $/); print map %$_, @$AoH;` [download] would print `keyname aaaaa keyname bbbbb keyname ccccc` [download] in your case.	[reply] [d/l] [select]
Re: Printing all values of an AoH by CountZero (Bishop) on Oct 16, 2004 at 20:10 UTC
Data::Dumper? CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply]
Re^2: Printing all values of an AoH by bradcathey (Prior) on Oct 16, 2004 at 20:33 UTC
Of course, Data::Dumper is great for development, but I was looking for a something to run within the actual script. As in: `$stmt = qq/SELECT * FROM table WHERE id IN (/ . join(',', ('?') x $categories ) . qq/)/; $sth = $dbh->prepare($stmt); $sth->execute($categories);` [download] where $categories is a ref to an AoH, and there is only one key name. —Brad "Don't ever take a fence down until you know the reason it was put up." G. K. Chesterton	[reply] [d/l]
Re^3: Printing all values of an AoH by CountZero (Bishop) on Oct 16, 2004 at 20:59 UTC
Perhaps have a look into the Data::Dumper source code and see how it gets at the AoH data. CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply]
Re: Printing all values of an AoH by TedPride (Priest) on Oct 16, 2004 at 20:02 UTC
`use strict; use warnings; my $AoH = [{ keyname => "aaaaa" }, { keyname => "bbbbb" }, { keyname => "ccccc" }]; print map ((values %$_, " "), @$AoH), "\n";` [download] This doesn't leave the separator set differently from default, and doesn't print keys too.	[reply] [d/l]