Perl 数组_5

Perl 数组一个是存储标量值的列表变量，变量可以是不同类型。

数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取，实例如下：

#!/usr/bin/perl
 
@hits = (25, 30, 40);             
@names = ("google", "runoob", "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";

创建数组

数组变量以 @ 符号开始，元素放在括号内，也可以以 qw 开始定义数组。

@array = (1, 2, 'Hello');
@array = qw/这是 一个 数组/;

第二个数组使用 qw// 运算符，它返回字符串列表，数组元素以空格分隔。当然也可以使用多行来定义数组：

@days = qw/google
taobao
...
runoob/;

你也可以按索引来给数组赋值，如下所示：

$array[0] = 'Monday';
...
$array[6] = 'Sunday';

访问数组元素

【1】访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取；
【2】数组索引值从 0 开始，即 0 为第一个元素，1 为第二个元素，以此类推。负数从反向开始读取，-1 为第一个元素， -2 为第二个元素；
【3】读取不存在的元素将得到 undef；

数组序列号

Perl 提供了可以按序列输出的数组形式，格式为 起始值 + … + 结束值，实例如下：

#!/usr/bin/perl
 
@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

数组大小

【1】数组大小由数组中的标量上下文决定。：

@array = (1,2,3);
print "数组大小: ",标量 @array,"\n";

数组长度返回的是数组物理大小，而不是元素的个数，我们可以看以下实例：

#!/uer/bin/perl
 
@array = (1,2,3);
$array[50] = 4;
 
$size = @array;
$max_index = $#array;
 
print "数组大小:  $size\n";
print "最大索引: $max_index\n";
执行以上程序，输出结果为：

数组大小:  51
最大索引: 50

从输出的结果可以看出，数组元素只有四个，但是数组大小为 51。
【2】将数组放到标量环境能得到其长度。一些人也喜欢直接使用 scalar

my $stooge_count = scalar @stooges; # 4

my $stooge_count = @stooges;        # 4

【3】不要使用 length 来获得数组的长度。那只会得到字符串的长度。

my $moe_length = length $stooges[@stooges/2];
                 length $stooges[2];
                 length 'Moe';
                 3;

【4】数组没有边界
数组没有任何有限的大小，且不必预先声明。数组按需更改其大小。数组也不稀疏。下列代码创建 10,000 个元素的数组。

my @array     = ();
$array[10000] = 'x';

@array 现在具有 10,001 个元素（0-10,000）。它只填入了一个，其他 10,000 个都是 undef。

数组会平展，但不会嵌套

数组合并时会平展开为一个大列表。

my @sandwich       = ( 'PB', 'J' );
my @other_sandwich = ( 'B', 'L', 'T' );
my @ingredients    = ( @other_sandwich, @sandwich );
# ( 'B', 'L', 'T', 'PB', 'J' )

这意味着你不能将一个数组包含到另一个数组或哈希中。那样的话，你将需要使用引用。

列表能带扩展的逗号（,）

Perl 最好的特性之一是在列表的尾端能带一个扩展的逗号。例如：

my @array = (
    'This thing',
    'That thing',
);

当你编辑代码时，这使添加或者删除项目十分容易，因为你无需将最后一个项目作为特殊情况处理。

my @array = (
    'This thing',
    'That thing',
    'The other thing',
);

添加和删除数组元素

下表列出了数组中常用的操作函数：

push @ARRAY, LIST	将列表的值放到数组的末尾
pop @ARRAY	删除数组的最后一个值
shift @ARRAY	弹出数组第一个值，并返回它。数组的索引值也依次减一
–	–
unshift @ARRAY, LIST	将列表放在数组前面，并返回新数组的元素个数

#!/usr/bin/perl
 
# 创建一个简单数组
@sites = ("google","runoob","taobao");
$new_size = @sites ;#标量环境中返回数组的大小
print "1. \@sites  = @sites\n"."原数组长度 ：$new_size\n";
# 在数组结尾添加一个元素
$new_size = push(@sites, "baidu");
print "2. \@sites  = @sites\n"."新数组长度 ：$new_size\n";
 
# 在数组开头添加一个元素
$new_size = unshift(@sites, "weibo");
print "3. \@sites  = @sites\n"."新数组长度 ：$new_size\n";
 
# 删除数组末尾的元素
$new_byte = pop(@sites);
print "4. \@sites  = @sites\n"."弹出元素为 ：$new_byte\n";
 
# 移除数组开头的元素
$new_byte = shift(@sites);
print "5. \@sites  = @sites\n"."弹出元素为 ：$new_byte\n";

切割数组

我们可以切割一个数组，并返回切割后的新数组：

#!/usr/bin/perl
 
@sites = qw/google taobao runoob weibo qq facebook 网易/;
 
@sites2 = @sites[3,4,5];
 
print "@sites2\n";

数组索引需要指定有效的索引值，可以是正数后负数，每个索引值使用逗号隔开。如果是连续的索引，可以使用. .来表示指定范围：

#!/usr/bin/perl
 
@sites = qw/google taobao runoob weibo qq facebook 网易/;
 
@sites2 = @sites[3..5];
 
print "@sites2\n";

替换数组元素

Perl 中数组元素替换使用 splice() 函数，语法格式如下：

splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

@ARRAY：要替换的数组。
OFFSET：起始位置。
LENGTH：替换的元素个数。
LIST：替换元素列表。

以下实例从第6个元素开始替换数组中的5个元素:

#!/usr/bin/perl
 
@nums = (1..20);
print "替换前 - @nums\n";
 
splice(@nums, 5, 5, 21..25); 
print "替换后 - @nums\n";
执行以上程序，输出结果为：

替换前 - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
替换后 - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

将字符串转换为数组

Perl 中将字符串转换为数组使用 split() 函数，语法格式如下：

split [ PATTERN [ , EXPR [ , LIMIT ] ] ]

参数说明：
PATTERN：分隔符，默认为空格。
EXPR：指定字符串数。
LIMIT：如果指定该参数，则返回该数组的元素个数。

#!/usr/bin/perl
 
# 定义字符串
$var_test = "runoob";
$var_string = "www-runoob-com";
$var_names = "google,taobao,runoob,weibo";
 
# 字符串转为数组
@test = split('', $var_test);#分割符为空格，字符串 "runoob"将转换为宽度为6的数组
@string = split('-', $var_string);#分割符为“-”字符串"www-runoob-com"转换为宽度为3的数组
@names  = split(',', $var_names);#分割符为，字符串"google,taobao,runoob,weibo"转换为宽度为4的数组
 
print "$test[3]\n";  # 输出 o
print "$string[2]\n";  # 输出 com
print "$names[3]\n";   # 输出 weibo
执行以上程序，输出结果为：

o
com
weibo

将数组转换为字符串

Perl 中将数组转换为字符串使用 join() 函数，语法格式如下：

join EXPR, LIST

参数说明：
EXPR：连接符。
LIST：列表或数组。

#!/usr/bin/perl
 
# 定义字符串
$var_string = "www-runoob-com";
$var_names = "google,taobao,runoob,weibo";
 
# 字符串转为数组
@string = split('-', $var_string);
@names  = split(',', $var_names);
 
# 数组转为字符串
$string1 = join( '-', @string );
$string2 = join( ',', @names );
 
print "$string1\n";
print "$string2\n";
执行以上程序，输出结果为：

www-runoob-com
google,taobao,runoob,weibo

数组排序

Perl 中数组排序使用 sort() 函数，语法格式如下：

sort [ SUBROUTINE ] LIST

参数说明：
SUBROUTINE：指定规则。
LIST：列表或数组。

#!/usr/bin/perl
 
# 定义数组
@sites = qw(google taobao runoob facebook);
print "排序前: @sites\n";
 
# 对数组进行排序
@sites = sort(@sites);
print "排序后: @sites\n";
执行以上程序，输出结果为：

排序前: google taobao runoob facebook
排序后: facebook google runoob taobao

注意：数组排序是根据 ASCII 数字值来排序。所以我们在对数组进行排序时最好先将每个元素转换为小写后再排序。

合并数组

数组的元素是以逗号来分割，我们也可以使用逗号来合并数组，如下所示：

#!/usr/bin/perl
 
@numbers = (1,3,(4,5,6));
 
print "numbers = @numbers\n";

执行以上程序，输出结果为：

numbers = 1 3 4 5 6

也可以在数组中嵌入多个数组，并合并到主数组中：

#!/usr/bin/perl
 
@odd = (1,3,5);
@even = (2, 4, 6);
 
@numbers = (@odd, @even);
 
print "numbers = @numbers\n";
执行以上程序，输出结果为：

numbers = 1 3 5 2 4 6

从列表中选择元素

一个列表可以当作一个数组使用，在列表后指定索引值可以读取指定的元素，如下所示：

#!/usr/bin/perl
 
$var = (5,4,3,2,1)[4];#这里的4为索引值
 
print "var 的值为 = $var\n"
执行以上程序，输出结果为：

var 的值为 = 1

同样我们可以在数组中使用 … 来读取指定范围的元素：

#!/usr/bin/perl
 
@list = (5,4,3,2,1)[1..3];
 
print "list 的值 = @list\n";
执行以上程序，输出结果为：

list 的值 = 4 3 2

参考文献：
【1】https://www.runoob.com/perl/perl-arrays.html