Изменить контекст возврата карты?

Question

Я пытаюсь разобрать строку JSON в ссылку на массив:

my $str = '[[2],[1]]';
my $data = map { $_->[0] } @{decode_json( $str )};

но это делает его скалярным. Я могу сделать:

my $str = '[[2],[1]]';
my @data = map { $_->[0] } @{decode_json( $str )};
my $data = \@data;

но это не так коротко, как мне нравится. любая помощь?

Answer 1

Как насчет:

my $str = '[[2],[1]]';
my $data = [map {$_->[0]} @{decode_json($str)}];

Answer 2

Использование промежуточной переменной:

my $str = '[[2],[1]]';
my @data = map { $_->[0] } @{decode_json( $str )};
my $data = \@data;

Answer 3

Поскольку ОП спросил, какой подход имеет больше накладных расходов, вот быстрый профиль, который я использовал для сравнения двух. Не стесняйтесь редактировать запись с способами улучшения измерения:

#!/usr/bin/perl -w
use strict;
use Benchmark qw(cmpthese);

sub count(\$$) {
    ${$_[0]} += @{$_[1]};
}

sub a() {
    count($a, [map {$_ + 1} 1..1000000]);
}

sub b() {
    my @d = map {$_ + 1} 1..1000000;
    count($b, \@d);
}

cmpthese(-10, {a => \&a, b => \&b});