perl标量上下文小结

来源：互联网发布：node.js能实现什么编辑：程序博客网时间：2024/05/16 00:50

本人最近在学习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)

0 0