更改地图返回的上下文？

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)}];