Perl参考哈希切片

Question

I have below hash:

my %gilligan_info = (
        name            =>      'Gilligan',
        hat             =>      'white',
        shirt           =>      'Red',
        position        =>      'First Mate',
);

my %skipper_info = (
        name            =>      'Skipper',
        hat             =>      'Black',
        shirt           =>      'Blue',
        position        =>      'Captain'
);

I have a array of hashes:

my @crew = (\%gilligan_info, \%skipper_info);

I created a reference:

my $ref = \%{$crew[1]};

I'm pulling key values from second hash:

my @ref_values = @{$ref}{ qw ( name position hat )};

My question is, how can I get values of hashes by not specifying element number in reference "$ref"?

Thanks

Answer 1

如果您希望单个数组中所有哈希的值，

my @ref_values = map @$_{ qw(name position hat) }, @crew;

Answer 2

I think what you want is for @ref_values to contain an array of values for each of the @crew .

Something like this, perhaps

my @ref_values;

for my $crew ( @crew ) {
  push @ref_values, [ @$crew{ qw(name position hat) } ];
}

This is also possible using map if you prefer, similarly to the solution from Сухой27