Perl 数组学习笔记

什么是数组？

在Perl中，数组是一种特殊的变量类型，可以存储多个值。数组中的每个元素都有一个唯一的编号，称为下标或索引。可以使用下标来访问数组中的每个元素。

如何创建与初始化数组？

Perl中创建数组非常简单，只需要使用@符号表示一个数组变量。以下是一些初始化数组的方式：

perlCopy Code
my @nums = (1, 2, 3, 4, 5); # 直接赋值
my @letters = qw(a b c d e); # 使用qw运算符
my @colors = ('red', 'green', 'blue'); # 使用单引号或双引号
my @empty_array = (); # 空数组

如何访问数组元素？

可以使用下标来访问数组中的每个元素，并使用$符号表示数组的元素变量。下标从0开始，例如：

perlCopy Code
my @nums = (1, 2, 3, 4, 5);
print $nums[0]; # 输出1
print $nums[2]; # 输出3

如何操作数组？

Perl提供了许多有用的函数和运算符来操作数组，以下是一些常用的操作：

push

push函数将一个或多个元素添加到数组的末尾。

perlCopy Code
my @nums = (1, 2, 3);
push @nums, 4, 5;
print @nums; # 输出1 2 3 4 5

pop

pop函数从数组的末尾删除一个元素，并返回该元素。

perlCopy Code
my @nums = (1, 2, 3, 4, 5);
my $last_num = pop @nums;
print $last_num; # 输出5

shift

shift函数从数组的开头删除一个元素，并返回该元素。

perlCopy Code
my @nums = (1, 2, 3, 4, 5);
my $first_num = shift @nums;
print $first_num; # 输出1

unshift

unshift函数将一个或多个元素添加到数组的开头。

perlCopy Code
my @nums = (3, 4, 5);
unshift @nums, 1, 2;
print @nums; # 输出1 2 3 4 5

splice

splice函数用于删除、插入或替换数组中的元素。

perlCopy Code
my @nums = (1, 2, 3, 4, 5);
splice @nums, 2, 2, ('a', 'b');
print @nums; # 输出1 2 a b 5

sort

sort函数用于对数组进行排序。

perlCopy Code
my @nums = (5, 3, 1, 4, 2);
my @sorted_nums = sort @nums;
print @sorted_nums; # 输出1 2 3 4 5

实例

下面是一个示例代码，演示如何使用Perl数组来计算平均值和标准差：

perlCopy Code
use strict;
use warnings;

my @nums = (3, 5, 7, 9, 11);
my $total = 0;
my $count = scalar @nums;

foreach my $num (@nums) {
    $total += $num;
}

my $average = $total / $count;
print "平均值：$average\n";

my $variance = 0;
foreach my $num (@nums) {
    $variance += ($num - $average) ** 2;
}
$variance /= $count;
my $stddev = sqrt($variance);
print "标准差：$stddev\n";

以上代码将输出以下结果：

Copy Code
平均值：7
标准差：2.82842712474619

总结

Perl的数组非常灵活，可以轻松地进行各种操作。学习好Perl数组，对于Perl程序员来说是非常重要的。