Perl变量(2)--数组-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

Perl变量(2)--数组

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　数组是标量数据的有序列表。

　　数组能够含任意多个元素。最小的数组能够不含元素，而最大的数组能够占满全部可用内存。

　　数组实量(array literal)是位于括号内用逗号分开的一系列值。如：

　　（1,2,3,4,5）#具备1,2,3,4,5五个数值的数组

　　（"zmd",1974,173.5）#具备"zmd",1974,173.5三个数值的数组

　　（）#空数组

　　（$a,5）#两个数值：$a的值和5

　　（$a+$b,6）#两个数值

　　数组变量具备单独的数组值，要以@打头而不是$。如：

　　@zmd

　　注意@zmd和$zmd没任何联系。Perl为对象的不同类型保留单独的命名空间。

　　数组的赋值和标量赋值相同，也用等号表示。Perl根据赋值对象是标量还是数组变量来确定赋值操作是标量赋值还是数组赋值。

　　若数组实量中只含有变量引用(不是表达式)，则此数组实量也可作为变量使用。他能够用在赋值运算符的左边。例如：

　　($a,$b,$c)=(1,2,3) #将1赋给$a，2赋给$2，3赋给$3

　　假如把数值变量赋给标量变量，则赋给标量变量的就是数组长度，如：

　　@zmd=(1,2,3) #将(1,2,3)赋给@zmd

　　$a=@zmd # $a为3，即@zmd的数组个数

　　数组元素的访问和C语言中类似，下标是按顺序整数排列的，编号从0开始。

　　($a,$b,$c)=(1,2,3) #将1赋给$a，2赋给$2，3赋给$3

　　假如把数值变量赋给标量变量，则赋给标量变量的就是数组长度，如：

　　@zmd=(1,2,3) #将(1,2,3)赋给@zmd

　　$a=@zmd # $a为3，即@zmd的数组个数

　　综合举例

　　@user1=("zmd","cxm"); #将zmd和cxm两个字符串赋给@user1

　　@user2=@user1; #这时@user2=@user1=("zmd","cxm")

　　@user3=("zk",@user1); #这时@user3=("zk","zmd","cxm")

　　($one,@user4)=@user3; #这时$one="zk"

　　@user1=(); #把@user1清空

　　@int1=(1,2,3,4,5); $x=@int1; #将数组@int1的个数赋给$x纯变量，$x=5

　　$x=$#int1; #$#这个变量返回数组最后个数的值(index)$x=4

　　($x)=@int1; #$x等于数组的第一个个数值$x=1

　　$b=$int1[0]; #$b等于数组的第一个元素值$b=1

　　$c=@int1[0]; #$c同上$c=1，因些呼叫数组中值有两种方法

　　$int1[0]=3; #将3这个数值赋给数组@int的第一个元素@int1=(3,2,3,4,5)

　　$int1[0,1]=[7,8]; #将7赋给数组的第一个元素将8赋给数组第二个元素@int1=(7,8,3,4,5)

　　@int1[0,1]=@int1[1,0]; #将数组前两个元素交换@int1(8,7,3,4,5)

　　($int1[0],$int1[1])=($int1[1],$int1[0]); #同上@int1=(8,7,3,4,5)

　　@int2=@int1[0,1]; #int2=(8,7)

　　$int1[5]=6; #将6赋给数组中第六个元素@int1=(1,2,3,4,5,6)

喜欢本文，那就收藏到：