Perl中数组的使用

　　数组是perl里面一种非常有用的东西。我们可以通过下面的方式定义数组：

　　@a=("hello","great","cipher");

　　@b=(1,2,3,4,5,6,7);

　　@b的定义方式还可以写成下面的形式：

　　@b=(1..7); #这种方式对于需要1到10000的初始值得数组真实太重要了。　　　

　　@b=("a".."z");

　　也是可以的，但是我想不出来对中国人有什么用。定义一个空数组可以用下面的方式：

　　@c=();

　　访问数组通过下面的方式（下标和c语言一模一样，从0开始，basic的用户要注意了）：

　　$b[0]=10000;

　　注意这里引导符变成了$不是@。通过这个变化表示这时正在访问一个单独的数据。而不是一组数据。还可以使用多个下标，但是这时就要使用@引导符了。例如：

　　@b[5,7,9]=(45,56,67);

　　这种情况下，print $b[8];将会在使用了perl -w得到一个使用未定义变量的错误，其他情况下什么都不会发生。

　　数组之间相互拷贝，可以用下面的方式：

　　@d=@c;

　　这样要比c语言简单多了。同c语言不同，perl的数组是可以动态改变大小的。因此我们可以追加，删除数组内的元素。追加一个元素可以使用这种方式：

　　@c=(@c,"hello");

　　perl里面有一个专门的函数用来惊醒追加操作叫做push,push的使用方法如下：

　　push(@c,"hello");

　　push(@c,("hello","halloha"));

　　push(@c,@a);

　　这里可以看到，可以给数组追加一个元素，一组元素甚至另外一个数组。另外，在perl的数组中可以放不同类型的标量。这一点在c程序员的眼中可能有点怪异，但是如 果记住perl里面的一切都是引用就可以了。或者理解成这是一个void类型的指针的数组。有了push，就一定有pop。pop就是从数组的最后取出一个元素。用法为：