perl数组变量（Array）转载
原⽂地址：作者：
⼆、数组
数组是标量数据的有序列表。
数组可以含任意多个元素。最⼩的数组可以不含元素，⽽最⼤的数组可以占满全部可⽤内存。
数组实量(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)
Scalar Array：
纯量数组，数组内的每⼀个元素都是Scalar variable。宣告及使⽤⽅式如下：
# 纯量数组以 @ 开头。
my @array;
my @array=qw(a b c d);
# qw 函数会将其后的每个元素⽤逗点隔开，效果就像下⾯这⾏。
my @array=("a","b","c","d");
# 当然你也可以⼀个个元素宣告，下⾯就是存取每⼀个元素的⽅法。
# 因为数组中的每⼀个元素都是纯量变量，所以要以 $ 开头，
# 刚开始容易搞混，请注意。
$array[0]="a"; $array[1]="b"; $array[2]="c"; $array[3]="d";
# 使⽤for loop印出数组内每个元素的值。
for($i=0; $i<=$#array; $i++) {
print "$array[$i]\n";
}
看到$#array这个奇怪的东东没? 这是Perl的⼀个特殊⽤法，代表这个数组最后⼀个元素的注标。由于Perl不必事先宣告变量，也不必预先宣告数组的⼤⼩，甚⾄可以随时增加新元素，那我们怎么知道这个数组到底有多⼤呢? 透过这个特殊变量我们可以得知这个这个数组最后⼀个元素的注标，⾃然⽽然也就知道这个数组究竟有多⼤了。另外Perl只定义了⼀维数组的语法，⼆维以上只能⽤指标间接来达成。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。