Perl:如何使用 map 将成对数组投影到第一个元素的数组

Perl: How to use map to project an array of pairs to an array of first elements

我有这个简单的代码:

 perl -e '@A=([1,2],[3,4]); @B=map {$_[0]} @A; print @B'

我的目标是进行转换:

([1,2],[3,4]) -> (1,3)

代码没有输出。我在这里做错了什么?

您必须取消对引用的引用:

perl -e '@A = ([1, 2], [3, 4]); @B = map { $_->[0] } @A; print @B'
                                             ^^

勾选