Without the need to "manually" step over the zeroth element (i.e., process only hash refs. that have a 'name' key):
<c> c:\@Work\Perl>perl -wMstrict -le "use Data::Dump qw(dd); ;; my $data = [ { val => 'action', acc => 'Accounts', id => 'None', }, { name => 'PA1', id => 'AUTOB' }, { name => undef, id => 'AUTOP' }, { name => '0', id => 'BOP' }, { name => 0, id => 'DFIRE' }, { name => '', id => 'HOME' }, { name => 'CM7', id => 'CUMBR' }, { name => 'BR1', id => 'PUMBR' }, { name => 'TY6', id => 'ECUST' }, ]; ;; my $k = 'name'; my $names = [ map { exists $_->{$k} ? { $k => $_->{$k} } : () } @$data ]; dd $names; " [ { name => "PA1" }, { name => undef }, { name => 0 }, { name => 0 }, { name => "" }, { name => "CM7" }, { name => "BR1" }, { name => "TY6" }, ]
Update: Changed example code to include various false values for $k selected key.
Give a man a fish: <%-{-{-{-<
In reply to Re: Extracting elements from array
by AnomalousMonk
in thread Extracting elements from array
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |