标量上下文与列表上下文

所谓上下文,指的是表达式所在的位置.一般来说,Perl在解析一个表达式的时候,要么希望得到一个标量,要么希望得到一个列表.

在Perl中,表达式总是根据所需要的上下文返回对应的值.

以数组的"名称"为例:在列表上下文中,它会产生元素的列表;但在标量上下文中,则会返回数组中元素的个数.

#!perl
use strict;
my @people=qw(fred barney betty);
my @sorted=sort @people;
my $number=42+@people;
print @sorted,"\n";
print "@sorted\n";
print $number."\n";

但是不能想当然的认为在标量上下文中,一定会得到(列表上下文中返回的列表的)元素个数,这需要看表达式的实现.

如sort在列表上下文中返回的是排序后的列表,在标量上下文中返回的是undef.

在列表上下文中使用产生标量的表达式会自动产生一个仅含此标量值的列表

#!perl
use strict;
my @barney="hello" . ' ' . "world";
my @fred=6*7;
my @wilma=undef;
my @betty=();
print scalar @barney . ":[@barney]\n";
print scalar @fred . ":[@fred]\n";
print scalar @wilma . ":[@wilma]\n";
print scalar @betty . ":[@betty]\n";

要清空一个列表,正确的做法应该是直接把一个空列表赋值给数组,如第6行.

第5行的做法是构建了一个只有一个元素的列表,这个唯一的元素的值是undef.