如何在Perl中强制列表或标量上下文？

Question

我对Perl中的列表和标量上下文的一些细节有点困惑，我希望有人可以帮我一点。 我的最终目标是比较两个数组中的元素数量，除了其中一个数组是一个匿名数组，我不知道让Perl告诉我它有多少元素。 这是我在调试器中输入的内容：`

DB<10> @a = ([1,2,3,4],[5,6,7,8,9],[10,11])

DB<11> @b = $a[1]

DB<12> $c = @b

DB<13> p $c
1             # Why didn't this print out 5?

DB<14> $d = $a[1]

DB<15> p @$d
56789

DB<16> p $$d
Not a SCALAR reference at (eval 17)[/opt/local/lib/perl5/5.8.9/perl5db.pl:638] line 2.

DB<17> @e = @a[1]

DB<18> p @e
ARRAY(0x87c358)

DB<19> p ${@e}

我尝试了有趣的角色组合，有人可以告诉我我做错了什么吗？ 谢谢。

Answer 1

[]将创建一个数组引用（这是一个标量）。

$a[1]指向[5,6,7,8,9] （数组引用）

@b = $a[1]将创建一个包含一个项目的新数组（数组引用）。

您需要取消引用arrayref。

@b = @{$a[1]}

此时您可以获得其中的项目数：

print scalar @b