Как мне использовать функцию карты для создания пользовательского хэша из массива в Perl?

Question

У меня есть некоторые JavaScript:

var $things = [ 
    { 
    "id": "1", 
    "image": "one.png" 
    }, 
    { 
    "id": "2", 
    "image": "two.png" 
    }, 
]; 

Он преобразуется в массив Perl ($thingsJSON является строковым представлением выше):

my $coder = JSON::XS->new->utf8; 
my $things = $coder->decode($thingsJSON); 

нужна функция карты на $things, возвращающую коллекция ($args), который выглядит следующим образом:

(
    image => "one.png", 
    image => "two.png" 
) 

Я хочу, чтобы иметь возможность пройти выше, как $args другой функции:

$Bar->find($args)

Answer 1

Предполагая, что вы на самом деле хотите это массив, содержащий список вы можете передать в эту функцию, которая рассчитывает пары ключ/значение, это будет работать:

@args = map { (image => $_->{image}) } @$things; 

для ясности, это то же самое, как

@args = map { ('image', $_->{image}) } @$things; 

, который, map просто возвращает список где все четные элементы являются строкой "image", и все элементы с нечетными номерами являются значением ключа image некоторого элемента в @$things.