Perl,获取所有哈希值

对。有。

my @list = map {
    exists $_->{foo} ? $_->{foo} : die 'hashed lacked foo'
  }
  @hash_list
;

您可以为此使用map函数:

@hash_list = (
 {foo=>1},
 {foo=>2}
);

@list = map($_->{foo}, @hash_list);

map将第一个参数中的函数应用于第二个参数的所有元素。

grep也很酷,可以过滤列表中的元素,并且工作方式相同。

Evan的答案很接近,但将返回hashrefs而不是foo的值。

my @list = map $_->{foo} grep { exists $_->{foo} } @hash_list

if ( @hash_list != grep { exists $_->{foo} } @hash_list ) {
    # test failed
}