Perl中数组的使用

　　pop(@a);

　　既然可以从数组的末尾加入元素，那么一定也可以从数组的开头加入元素。那么这个功能是由unshift函数提供的。用法为：

　　unshift(@c,"hello");

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

　　unshift(@c,@a);

　　有了unshif就一定会有shift了。shift的功能是从数组的开头取出一个元素。用法为：

　　unshift( @a);

　　有了操作数组两端的函数那么一定也会有操作数组中间部分的函数，这个函数就是splice,splice函数有三个作用。第一个作用是向数组中间的一部分插入内容。例如：

　　@d=(1..9);

　　my @e=("a".."f");

　　splice(@d,2,2,@e);

　　将会得到12abcdef56789，注意这里是从第二个开始插入，不是从下标为2的元素开始插入的。splice的第二个功能是删除，例如在刚才的代码上面再加上：

　　splice(@d,2,6);

　　将可以得到1256789；splice的第三个功能就是删除到末尾。语法为：

　　splice(@d,2);

　　就是从第二个开始，删除到末尾。我们还应该有一个可以把整个数组合并成一个标量的函数。这个函数就是join,join有两个参数，第一个参数是合并时放在元素之间的分割符，第二个是进行操作的数组。 例如：

　　my @g=(1,2,3);

　　join(" ",@g);

　　将可以得到“1 2 3”，还有三个函数我们昨天已经见过了，就是undef,chop和chomp。undef(@a); 的作用是把@a的内容清空。chop(@a); 的作用是把数组内每个元素的末尾去一个字符。而chomp(@a); 的作用则是把数组内的每一个元素的末尾的换行符去掉。我们还应该介绍一个函数就是scalar，这个函数取得数组的长度。例如：