Perl 数组
数组是一种特殊类型的变量，它以列表的形式存储数据，可以使用索引来访问每个元素，索引号对于每个元素都是唯一的。你可以在数组中存储数字、字符串、浮点值等。这看起来很棒，那么我们如何在 Perl 中创建一个数组呢？在 Perl 中，你可以使用 @ 字符后跟要提供的名称来定义数组。
比如，我们在 Perl 中定义一个数组。
my @array
这是我们在 Perl 中定义数组的方式;你可能正在考虑我们需要如何在其中存储数据。在数组中存储数据的方法有很多种。这取决于你将如何使用它。
my @array=(a,b,c,d);
print @array;
输出：
a b c d
这是一个包含 4 个元素的数组。
数组索引从 0 开始并结束到其最大声明的数组大小，在这种情况下，最大索引大小为 3。
@array = qw(a b c d);
你也可以用上面的方式声明一个数组。唯一的区别是，它将数据存储到一个数组中，将空白空间作为分隔符。这里，qw 表示引用词。此函数的意义在于生成单词列表。你可以通过多种方式使用 qw 来声明数组。
@array1=qw/a b c d/;
@array2= qw' p q r s';
@array3=qw { v x y z};
print @array1;
print @array2;
print @array3;
输出：
abcdpqrsvxyz
假设你要为数组的第 5 个元素赋值，我们可以这样来做，
$array [4] ='e';
顺序数组
顺序数组是你按顺序存储数据的数组。假设你要在数组中存储 1-10 个数字或字母 a-z。你可以用下面的代码，而不用输入所有字母 -
@numbers= (1..10);
print @numbers; #Prints numbers from 1 to 10;
输出：
12345678910
Perl 数组大小
我们有一个已经可用的数组，你不知道该数组的大小是多少，那么如何来得到数组的大小呢？
@array= qw/a b c d e/;
print $size=scalar (@array);
我们可以在不使用函数的情况下获得数组的大小吗？答案是可以的。
@array= qw/a b c d e/;
print $size=scalar (@array);
print "\n";
print $size=$#array + 1; # $#array will print the Max Index of the array, which is 5 in this case
输出：
5
5
动态数组
上面声明一个数组的方法称为静态数组，这种方法下你知道数组的大小。
什么是动态数组？
动态数组是你声明的数组，但并不指定任何值。那么我们什么时候才能在该数组中存储值？很简单，我们在运行时存储它们。这是一个简单的程序。
我们将使用一些内置的 Perl 函数来完成此任务。
my $string="This is a kind of dynamic array";
my @array;
@array=split('a',$string);
foreach(@array)
{
print "$_ \n”;
# This is a special variable which stores the current value.
}
输出：
This is
kind of dyn
mic
rr
y
split 函数根据提供给它的分隔符将 string 的内容拆分为一个数组。这个函数也会从字符串中删除分隔符，在这种情况下，它是 a。
Perl 数组的 Push,Pop,shift,unshift:
可以在 Perl 中使用这些函数来添加/删除数组元素。
- Perl Push：在现有数组的末尾添加数组元素。 - Perl Pop：从数组中删除最后一个元素。 - Perl Shift：从数组中删除第一个元素。 - Perl Unshift：在数组的开头添加一个元素。
Push,Pop,shift,unshift 例子
@days = ("Mon","Tue","Wed");
print "1st : @days\n";
push(@days, "Thu"); # adds one element at the end of an array
print "2nd when push : @days\n";
unshift(@days, "Fri"); # adds one element at the beginning of an array
print "3rd when unshift : @days\n";
pop(@days);
print "4th when pop : @days\n"; # remove one element from the last of an array.
shift(@days); # remove one element from the beginning of an array.
print "5th when shift : @days\n";
输出：
1st : Mon Tue Wed
2nd when push : Mon Tue Wed Thu
3rd when unshift : Fri Mon Tue Wed Thu
4th when pop : Fri Mon Tue Wed
5th when shift : Mon Tue Wed