本文将详细解释如何在Perl中使用Perl数组。边肖觉得很实用，就分享给大家参考。希望你看完这篇文章能有所收获。
Perl中Perl数组的使用
Perl数组是Perl中非常有用的东西。我们可以通过以下方式定义Perl数组：
@a=(“你好”、“太好了”、“密码”)；
@b=(1，2，3，4，5，6，7)；
@b的定义也可以写成以下形式：
@b=(1.7);#这个方法对于需要初始值1到10000的Perl数组来说太重要了。
@b=('a '.z ')；
没关系，但是我想不出对中国人有什么用。以下列方式定义一个空的Perl数组：
@ c=()；
访问Perl数组
通过以下方式访问Perl数组(下标和C语言完全一样，从0开始，使用basic的用户要注意一下):
$ b[0]=10000；
请注意，这里的指南变成了$而不是@这个变化表明此时正在访问一个单独的数据。而不是一组数据。您也可以使用多个下标，但是您将使用@ guide。示例：
@b[5，7，9]=(45，56，67)；
在这种情况下，打印$ b[8]；在使用perl-w之后，使用未定义的变量会得到一个错误，否则什么都不会发生。
Perl数组之间相互拷贝，可以用下面的方式：
@ d=@ c；
这比C语言简单多了。与C语言不同，perl的Perl数组可以动态调整大小。因此，我们可以在Perl数组中添加和删除元素。添加元素可以通过以下方式完成：
@c=(@c，' hello ')；
Perl有一个特殊的函数来唤醒名为Push的附加操作，其用法如下：
push(@c，' hello ')；
push(@c，(' hello '，' hallo ha ')；
push(@c，@ a)；
正如您在这里看到的，您可以向Perl数组中添加一个元素、一组元素甚至另一个Perl数组。此外，不同类型的标量可以放在perl的Perl数组中。这在C程序员看来可能有点奇怪，但只要记住perl中的一切都是引用就足够了。或者理解为这是一个void类型的Perl指针数组。用力推，一定有砰砰声。Pop是从Perl数组的* * *中取出一个元素。用法是：
pop(@ a)；
既然可以从Perl数组的末尾添加元素，那么也可以从Perl数组的开头添加元素。那么该功能由unshift功能提供。用法是：
unshift(@c，' hello ')；
unshift(@c，(' hello '，' hallo ha ')；
unshift(@c，@ a)；
有了unshif，就一定有移位。shift的作用是从Perl数组的开头取一个元素。用法：unshift(@ a)；
除了操作Perl数组两端的函数之外，还必须有一个操作Perl数组中间部分的函数。这个功能就是拼接，拼接功能有三个功能。* * *用于将内容插入到Perl数组的中间部分。示例：
@d=(1.9);
my@e=('a '.f ')；
拼接(@d，2，2，@ e)；
你会得到12abcdef56789。请注意，插入从第二个元素开始，而不是从下标为2的元素开始。拼接的第二个功能是删除，例如，添加：
拼接(@d，2，6)；
会得到1256789；拼接的第三个作用是删除到底。语法是：
拼接(@d，2)；
就是从第二个开始，一直删到最后。我们还应该有一个可以将整个Perl数组组合成一个标量的函数。这个函数是join，join有两个参数，* * *参数是合并时放在元素之间的分隔符，第二个是Perl数组进行运算。示例：
my@g=(1，2，3)；
join('，@ g)；
你会得到“123”，还有我们昨天看到的另外三个功能，分别是undef、chop和chop。undf(@ a)；的作用是清空@ a. chop(@a)的内容；的功能是从Perl数组中的每个元素的末尾移除一个字符。和chomp(@ a)；的功能是删除Perl数组中每个元素末尾的换行符。我们还应该引入一个名为scalar的函数，它获取Perl数组的长度。示例：
my@h=(1，2，3)；
标量(@ h)；
你会得到3分。但是我们通常不会这样使用，因为当Perl数组转换为标量时，会返回Perl数组的长度，例如，可以进行以下操作。
my@i=(1，2，3，4)；
print @ i. ' \ n
4将被打印出来。
这篇关于“如何在Perl中使用Perl数组”的文章已经在这里分享了。希望
内容来源网络，如有侵权，联系删除，本文地址：https://www.230890.com/zhan/133535.html