数组一个是存储标量值的无序列表变量。
数组变量以 @ 开头。
访问数组元素使用 ** $ + 变量名称 + [索引值]** 格式来读取
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
@hits = (25, 30, 40);
@names = ("google", "DDKK.COM 弟弟快看，程序员编程资料站", "taobao");
print "\$hits[0] = $hits[0]\n";
print "\$hits[1] = $hits[1]\n";
print "\$hits[2] = $hits[2]\n";
print "\$names[0] = $names[0]\n";
print "\$names[1] = $names[1]\n";
print "\$names[2] = $names[2]\n";
运行以上范例，输出结果为:
$ perl main.pl
$hits[0] = 25
$hits[1] = 30
$hits[2] = 40
$names[0] = google
$names[1] = DDKK.COM 弟弟快看，程序员编程资料站
$names[2] = taobao
创建数组
数组变量以 @ 符号开始，元素放在括号内。
@array = (1, 2, 'Hello');
也可以qw// 运算符定义数组，它返回字符串列表，数组元素以空格分隔。
@array = qw/这是 一个 数组/;
qw// 运算符可以跨多行
@days = qw/google
taobao
...
DDKK.COM 弟弟快看，程序员编程资料站/;
最后，也可以按索引来给数组赋值
$arr[0] = 'Monday';
...
$arr[6] = 'Sunday';
访问数组元素
使用 ** $ + 变量名称 + [索引值]** 格式可以访问数组元素
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
@sites = qw/google taobao DDKK.COM 弟弟快看，程序员编程资料站/;
print "$sites[0]\n";
print "$sites[1]\n";
print "$sites[2]\n";
print "$sites[-1]\n"; # 负数，反向读取
运行以上范例，输出结果为:
$ perl main.pl
google
taobao
DDKK.COM 弟弟快看，程序员编程资料站
DDKK.COM 弟弟快看，程序员编程资料站
数组索引值从 0 开始，即 0 为第一个元素，1 为第二个元素，以此类推。
负数从反向开始读取，-1 为第一个元素， -2 为第二个元素
数组序列号
Perl 中，使用 起始值 + .. + 结束值 格式可以按序列输出的数组形式
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);
print "@var_10\n"; # 输出 1 到 10
print "@var_20\n"; # 输出 10 到 20
print "@var_abc\n"; # 输出 a 到 z
运行以上范例，输出结果为:
$ perl main.pl
1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
a b c d e f g h i j k l m n o p q r s t u v w x y z
数组大小
把数组赋值给一个标量，可以返回数组的长度
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
$arrlen = (1,2,3,4,5,6);
print "数组大小: $arrlen \n";
运行以上范例，输出结果如下
$ perl main.pl
数组大小: 6
数组长度返回的是数组物理大小，而不是元素的个数
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
@array = (1,2,3);
$array[50] = 4;
$size = @array;
$max_index = $#array;
print "数组大小: $size\n";
print "最大索引: $max_index\n";
运行以上范例，输出结果为:
$ perl main.pl
数组大小: 51
最大索引: 50
从范例的结果中可以看出，数组元素只有四个，但是数组大小为 51。
添加和删除数组元素
Perl 提供了一些有用的函数来添加和删除数组元素。
如果你之前没有编程经验，可能会问什么是函数，其实我们之前使用的 print 即是一个输出函数
下表列出了数组中常用的操作函数：
| 类型 | 描述 |
|---|---|
| push(@ARRAY, el) | 将列表的值放到数组的末尾 |
| pop(@ARRAY) | 弹出数组最后一个值，并返回它 |
| shift(@ARRAY) | 弹出数组第一个值，并返回它。数组的索引值也依次减一 |
| unshift(@ARRAY, el) | 将列表放在数组前面，并返回新数组的元素个数 |
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
# 创建一个简单是数组
@sites = ("google","DDKK.COM 弟弟快看，程序员编程资料站","taobao");
print "1. \@sites = @sites\n";
# 在数组结尾添加一个元素
push(@sites, "baidu");
print "2. \@sites = @sites\n";
# 在数组开头添加一个元素
unshift(@sites, "weibo");
print "3. \@sites = @sites\n";
# 删除数组末尾的元素
pop(@sites);
print "4. \@sites = @sites\n";
# 移除数组开头的元素
shift(@sites);
print "5. \@sites = @sites\n";
运行以上范例，输出结果为:
$ perl main.pl
1. @sites = google DDKK.COM 弟弟快看，程序员编程资料站 taobao
2. @sites = google DDKK.COM 弟弟快看，程序员编程资料站 taobao baidu
3. @sites = weibo google DDKK.COM 弟弟快看，程序员编程资料站 taobao baidu
4. @sites = weibo google DDKK.COM 弟弟快看，程序员编程资料站 taobao
5. @sites = google DDKK.COM 弟弟快看，程序员编程资料站 taobao
切割数组
Perl 可以切割一个数组，并返回切割后的新数组
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
@sites = qw/google taobao DDKK.COM 弟弟快看，程序员编程资料站 weibo qq facebook 网易/;
@sites2 = @sites[3,4,5];
print "@sites2\n";
运行以上范例，输出结果为:
$ perl main.pl
weibo qq facebook
数组索引需要指定有效的索引值，可以是正数后负数，每个索引值使用逗号隔开。
如果是连续的索引，可以使用 .. 来表示指定范围：
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
@sites = qw/google taobao DDKK.COM 弟弟快看，程序员编程资料站 weibo qq facebook 网易/;
@sites2 = @sites[3..5];
print "@sites2\n";
运行以上范例，输出结果为:
$ perl main.pl
weibo qq facebook