Perl（二）－数组

作者：余正洋

#!/usr/bin/perl

 

@array=("a",1,"b","Hello world",3.1415927);

$i=0;

while ($i<=5)

{

   print "The $i element is $array[$i]/n ";

   ++$i;

 

}

 

这个是一个简单的例子，while不用多说了。在perl中数组是用@来命名的。@array=("a",1,"b","Hello world",3.1415927) 就是一句赋值语句。可以看到一个数组中可以包含不同类型的值。而要访问某个数组的元素用的是$array[i],这个i是由0开始的。在这个例子中访问$array[5]，其实越界的，它会什么都不打印。

 

我们来看看有几种数组赋值的方式，

 

1． @array3=qw(i am a good man);  这个可以一下子将一句拆成string数组

 

2． @array4=(1...10);    这个可以用于一下子复制顺序的整数

 

3． @array4[1,3,6]=(“hi”,”hello”,”you”);  这个可以将右边的值复制给数组中的某几个单元

 

4． @array=();   清空数组

 

5．Push，pop，shift，unshift函数

 

 

 

 

接着我们来看看几种数组的访问方式：

1． $array[0]  访问第一个数据

2． $array[-1] 访问倒数第一个数据

3． print  “@array” 打印整个数组

 

 

 

接着看看数组大小的改变方式

 

1．改变下标直接改变数组大小

比如一个数组@array=(0,1);

 

@array[3]=”hi” 执行后，数组长度变化为4， $array[2]的值没有被赋值，是undef

 

2．直接改变数组大小

比如一个数组@array=(0,1);

$#array=1   直接截断数组大小变为1