array of hashes

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

Replies are listed 'Best First'.
Re: array of hashes by GrandFather (Saint) on Dec 05, 2010 at 21:00 UTC
Why? It can't be condensed in any useful fashion (especially without losing the comma), but it can be made more flexible. Consider: `my @items = (0, 1); printf "%s\n", join ', ', map {$_->{car}} @array[@items];` [download] Prints: `ford, honda` [download] True laziness is hard work	[reply] [d/l] [select]
Re: array of hashes by BrowserUk (Patriarch) on Dec 05, 2010 at 18:07 UTC
A little: `print map $array[$_]{car}, 0,1;; ford honda print map $_->{car}, @array[0,1];; ford honda` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^2: array of hashes by Anonymous Monk on Dec 05, 2010 at 18:47 UTC
`print join(', ', map $_->{car}, @array[0,1]), "\n";`	[reply] [d/l]
Re: array of hashes by punkish (Priest) on Dec 06, 2010 at 02:36 UTC
`@a = ( {a => "ford", b => "red", c => "dog"}, {a => "honda", b => "blue", c => "cat"}, {a => "dodge", b => "orange", c => "spider"} ); say "$a[0]{a}, $a[1]{a}"` [download] Other than that, shortening it doesn't achieve much. Unless, of course, there is more to this question than you are revealing. -- when small people start casting long shadows, it is time to go to bed	[reply] [d/l]
Re: array of hashes by shawnhcorey (Friar) on Dec 06, 2010 at 01:08 UTC
Why? Shawn's first Rule of Programming: KISS; Hard to understand is costly to maintain. Keep your code easy to understand; don't be clever.	[reply]
Re: array of hashes by biohisham (Priest) on Dec 05, 2010 at 20:23 UTC
`print "$array[$_]{car} " for qw(0 1);` [download] Excellence is an Endeavor of Persistence. A Year-Old Monk :D .	[reply] [d/l] [select]
Re: array of hashes by jandrew (Chaplain) on Dec 10, 2010 at 02:42 UTC
Both more and less. `use 5.010; use strict; use warnings; my @array = ( { car => "ford", color => "red", pet => "dog", }, { car => "honda", color => "blue", pet => "cat", }, { car => "dodge", color => "orange", pet => "spider", }, ); say return_selected_elements( \@array, 'car', 0, 1 ); sub return_selected_elements { my $AoHref = shift; my $element = shift; my @Instances = @_; return join ", ", (map $AoHref->[$_]->{$element}, @Instances); }` [download] Returns `ford, honda`	[reply] [d/l] [select]