perl标量上下文小结

本人最近在学习perl语言的过程中,遇到一些常常容易出错的地方.特别是标量上下文这一块.当数组或哈希赋值给一个变量时,常常会因为中括号[]和()的混淆而造成语法错误.下面将通过打印的方式来理解标量上下文是怎么一回事.

#哈希
my %sales = (Jim=>2, Tom=>3, Lily=>2,);
my $sales = {Jim=>2, Tom=>3, Lily=>2,};
my $sales_length = %sales;
print %sales,"\n";
print "$sales\n";
print "$sales_length\n";

打印结果如下:

24Lily2Jim2Tom3
HASH(0x26e4098)
3/8

注意  sales是正常hash命名,用的是括号();而把一个匿名哈希赋值给一个标量$sales时返回的是一个hash的引用地址,用的是花括号{};当把一个有名哈希%sales赋值给一个标量$sales_length时,返回哈希的长度;

#数组
my @array = (1,2,3,4,5,'God');
my $array = [1,2,3,4,5,'God'];
my $array_length = @array;
print "@array\n";
print "$array\n";
print "$array_length\n";

打印结果如下:

1 2 3 4 5 God
ARRAY(0x26e3160)
6

注意: @array是正常array命名,用的是括号();当把一个匿名数组赋值给一个标量$array返回一个array的引用地址,用的是中括号[];而一个有名数组@array赋值给一个标量$array_length时,返回数组长度.

附:以下是几种常见的正确写法与错误写法的比照:

错误写法	正确写法
$one,$two=1,2	($one,$two)=(1,2)
$array=(1,2)	$array=[1,2]
$aref=('1','3','7')	$aref=['1','3','7']
qw !a b c!	qw !a,b,c!
	$aref=[qw(foo bar baz)]
%hash={one=>1,two=>2}	%hash=(one=>1,two=>2)
%hash=[qw /an anon array/]	%hash=qw(one 1 two 2)