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

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

#数组
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

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

附:以下是几种常见的正确写法与错误写法的比照:
[table]
|[color=red]错误写法[/color]|[color=green]正确写法[/color]|
|$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)|
[/table]