filter an array of hashrefs for only the fields i want

perl_hashref_array_filter.pl

# as function
sub filter { my $fields = shift; my @results = @_; foreach my $result (@results) { my $replacement = {}; foreach my $field (@$fields) { $replacement->{$field} = $result->{$field}; } $result = $replacement; } return @results; }
# as anonymous func
my $filter = sub {my $fields = shift; my @results = @_; foreach my $result (@results) {my $replacement = {}; foreach my $field (@$fields) {$replacement->{$field} = $result->{$field};} $result = $replacement;} return @results;};
# usages
my @results = $filter->([qw/metadata uuid/], $object->attribute->asHashRefs);
my @results = filter([qw/metadata uuid/], $object->attribute->asHashRefs);