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

Question

我有这个简单的代码：

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

我的目标是进行转换：

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

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

Answer 1

您必须取消引用这些引用：

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

校验

• http://perldoc.perl.org/perlref.html
• http://perldoc.perl.org/perlreftut.html