Perl, nhận tất cả giá trị băm

Question

Giả sử trong Perl tôi có danh sách các tham chiếu băm và mỗi trường bắt buộc phải chứa một trường nhất định, giả sử foo. Tôi muốn tạo một danh sách chứa tất cả các ánh xạ của foo. Nếu có băm không chứa foo thì quá trình sẽ không thành công.

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

my @list =(); 
foreach my $item (@hash_list) { 
    push(@list,$item->{foo}); 
} 

#list should be (1,2); 

Có cách nào ngắn gọn hơn để thực hiện việc này trong Perl không?

Answer 1

Có. có.

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

Answer 2

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

Answer 3

Evan của câu trả lời là gần, nhưng sẽ trở lại với hashrefs chứ không phải là giá trị của foo.

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

Answer 4

Bạn có thể sử dụng chức năng bản đồ cho việc này:

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

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

đồ áp dụng các chức năng trong các đối số đầu tiên trên tất cả yếu tố của số thứ hai.

grep cũng rất hay để lọc các phần tử trong danh sách và hoạt động theo cùng một cách.