极客教程Perl 列表和数组，在 Perl 中，人们可以交替使用术语列表和数组，但是存在差异。 列表是数据（标量值的有序集合），数组是保存列表的变量。
如何定义数组？
数组以@符号为前缀。这就是你定义一个数组的方法：
@friends = ("Ajeet", "Chaitanya", "Rahul");
这是包含三个字符串的字符串数组。另一种做法是：
@friends = qw(Ajeet Chaitanya Rahul); #same as above
注意：qw代表引用的单词，通过使用qw你可以避免引号并输入更少。
学习 Perl 时，您可能会遇到几个示例，其中您会看到以下类型的数组定义：
@friends = qw/Ajeet Chaitanya Rahul/; #same as above
这是因为 Perl 允许您选择任何标点字符作为分隔符。
以下所有语句均相同：
@friends = qw/Ajeet Chaitanya Rahul/;
@friends = qw!Ajeet Chaitanya Rahul!;
@friends = qw;
@friends = qw{Ajeet Chaitanya Rahul};
@friends = qw[Ajeet Chaitanya Rahul];
注意：开始和结束分隔符必须相同。
访问数组元素
您必须在另一个编程语言中使用过数组，如 C，C++，Java 等。数组的基本概念在这里是相同的。让我们举一个例子来了解如何定义数组以及如何访问它的元素。
#!/usr/bin/perl
@friends = ("Ajeet", "Chaitanya", "Rahul");
print "\friends[0] =friends[0]\n";
print "\friends[1] =friends[1]\n";
print "\friends[2] =friends[2]\n";
输出：
$friends[0] = Ajeet
$friends[1] = Chaitanya
$friends[2] = Rahul
正如你在上面的程序中看到的那样，数组是用@符号进行的。因为，单个数组元素只是标量，它们是$符号的预设。
范围运算符
范围运算符由双点..表示。此运算符用于创建顺序列表。例如：
#!/usr/bin/perl
@num = (3..9); # same as (3, 4, 5, 6, 7, 8, 9)
foreach temp (@num) {
print "temp\n";
}
输出：
3
4
5
6
7
8
9
让我们再看几个例子来理解范围运算符：
(2.9..7.9) # same as (2, 3, 4, 5, 6, 7), values after decimal are truncated
(9..3) # empty list, only works in increasing order
(1, 3..6, 10, 12..14) # same as (1, 3, 4, 5, 6, 10, 12, 13, 14),
运算符：pop和push
pop运算符从数组中删除最后一个元素并返回它。让我们举个例子来了解pop运算符的工作原理：
#!/usr/bin/perl
@num = (3..7); # same as (3, 4, 5, 6, 7)
n1 = pop(@num); #n1 is 7, array is (3, 4, 5, 6)
n2 = pop(@num); #n2 is 6, array is (3, 4, 5)
print "\n1 is:n1\n";
print "\n2 is:n2\n";
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
pop @num; # 5 is discarded, array is (3, 4)
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
输出：
$n1 is: 7
$n2 is: 6
array now has:
3
4
5
array now has:
3
4
push运算符在数组末尾添加一个元素。
示例：
#!/usr/bin/perl
@num = (10..12); # same as (10, 11, 12)
push (@num, 9); # array is (10, 11, 12, 9)
push (@num, 6); # array is (10, 11, 12, 9, 6)
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
@num2 = (11, 22, 33);
push (@num, @num2); # adding another array to the end
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
输出：
array now has:
10
11
12
9
6
array now has:
10
11
12
9
6
11
22
33
运算符：shift和unshift
正如我们在上面看到的那样，push和pop操作符在数组末尾添加和删除。shift和unshift在数组的开头执行操作。
shift运算符：
shift运算符的工作方式类似于pop运算符，但与pop运算符不同，它在数组的开头执行运算。
#!/usr/bin/perl
@num = (3..7); # same as (3, 4, 5, 6, 7)
n1 = shift(@num); #n1 is 3, array is (4, 5, 6, 7)
n2 = shift(@num); #n2 is 4, array is (5, 6, 7)
print "\n1 is:n1\n";
print "\n2 is:n2\n";
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
shift @num; # 5 is discarded, array is (6, 7)
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
输出：
$n1 is: 3
$n2 is: 4
array now has:
5
6
7
array now has:
6
7
unshift运算符：
unshift运算符的工作方式类似于push运算符，但与push运算符不同，它在数组的开头执行运算。
#!/usr/bin/perl
@num = (10..12); # same as (10, 11, 12)
unshift (@num, 9); # array is (9, 10, 11, 12)
unshift (@num, 6); # array is (6, 9, 10, 11, 12)
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
@num2 = (11, 22, 33);
unshift (@num, @num2); # adding another array to the beginning
print "array now has:\n";
foreach temp (@num) {
print "temp\n";
}
输出：
array now has:
6
9
10
11
12
array now has:
11
22
33
6
9
10
11
12
splice运算符
在上一节中，我们学习了如何在数组上执行push，pop，shift和unshift操作。但是这些运算符存在限制，它们只在数组的开头或数组的末尾执行。如果我们想在数组中间执行操作怎么办？这就是splice运算符进入画面的地方。
语法：
splice @array_name, s, l, @another_array
splice运算符最多可以包含四个参数。
第一个参数是数组名，这里我们指定我们正在执行操作的数组
第二个参数是起点，如上所述，你可以在数组中间执行操作。这指定了操作的起点。
第三个参数是长度
第四个参数是另一个列表或数组。
让我们举几个例子来理解这个：
示例 1：splice中只有两个参数
@myarray = qw(Rahul, Joe, Ajeet, Tim, Lisa);
@myvar = splice @array, 2;
# removes everything after Ajeet
# @myarray is qw(Rahul, Joe, Ajeet)
# @myvar is qw(Tim, Lisa)
splice运算符的第三和第四个参数是可选的。在上面的例子中，我们只提供了两个参数，数组和起始点。与数组类似，splice运算符的索引从 0 开始，这意味着Ajeet是上例中的起点。如果我们只提供两个参数，那么splice运算符会在起始点之后删除所有内容。
示例 2：三个参数
第三个参数指定已删除元素列表的长度。在上面的例子中，我们没有指定任何长度，这就是为什么它在起始点之后删除了所有内容。现在，让我们看看当我们提供第三个参数时会发生什么。
@myarray = qw(Rahul, Joe, Ajeet, Tim, Lisa);
@myvar = splice @array, 2, 1;
# removes only one element after Ajeet
# @myarray is qw(Rahul, Joe, Ajeet, Lisa)
# @myvar is qw(Tim)
例 3：第四个参数
第四个参数是另一个列表或我们要插入到数组中的数组。
@myarray = qw(Rahul, Joe, Ajeet, Tim, Lisa);
@myvar = splice @array, 2, 1, qw(Harsh, Alisha);
# removes only one element after Ajeet
# inserts the provided list at the same position
# @myarray is qw(Rahul, Joe, Ajeet, Harsh, Alisha, Lisa)
# @myvar is qw(Tim)
示例 4：如果我们不想删除任何内容，只需添加即可
如果您不想删除任何内容，只需要在数组中间添加一些元素，然后可以将长度指定为 0。
@myarray = qw(Rahul, Joe, Ajeet, Tim, Lisa);
@myvar = splice @array, 2, 0, qw(Harsh, Alisha);
# removes nothing
# inserts the provided list at the starting point
# @myarray is qw(Rahul, Joe, Ajeet, Harsh, Alisha, Tim, Lisa)
# @myvar is qw()
reverse运算符
reverse运算符将一个元素（或列表）数组作为输入，并以相反的顺序返回。例如：
@myarray = 10..15; # same as (10, 11, 12, 13, 14, 15)
@myarray2 = reverse @myarray; # @myarray2 has (15, 14, 13, 12, 11, 10)
@myarray3 = reverse 5..9; # @myarray3 has (9, 8, 7, 6, 5)
假设您想要反转数组的元素并将其存储到同一个数组中：
@myarray = 10..15;
@myarray = reverse @myarray;
注意：如果你只是写下面的语句那么它就不行了。
reverse @myarray;
这不会做任何事情，因为反向运算符不会更改数组元素的顺序，它只是以相反的顺序返回需要分配给数组的列表。