Perl 中的 @ - 数组273

在 Perl 中，数组是一种数据结构，用于存储一组有序的数据项。数组使用 @ 符号及其后的变量名表示。数组元素从 0 开始索引。

数组创建

可以通过以下方法创建数组：
直接赋值：
my @array = (1, 2, 3, 4, 5);

使用 push() 函数：
my @array;
push @array, 1, 2, 3, 4, 5;

使用数组推导：
my @array = 1 .. 10;

数组访问

可以使用以下方法访问数组元素：
下标索引：
my $element = $array[0];

切片：
my @slice = @array[1 .. 3];

迭代：
foreach my $element (@array) {
print "$element";
}

数组修改

可以使用以下方法修改数组：
重新赋值元素：
$array[0] = 10;

使用 pop() 和 push() 函数：
pop @array; # 删除最后一个元素
push @array, 6; # 添加新元素

使用 splice() 函数：
splice @array, 2, 1; # 从索引 2 开始删除 1 个元素

数组函数

Perl 提供了许多用于操作数组的函数，包括：
scalar @array：返回数组中元素的数量
@array > @array2：比较两个数组
sort @array：对数组进行排序
reverse @array：反转数组
join "", @array：将数组元素连接成一个字符串

数组引用

数组引用使用 \$array 表示。它指向数组存储在内存中的位置。您可以使用数组引用来传递数组作为参数或在数据结构中存储数组。

示例
# 创建并访问数组
my @numbers = (1, 2, 3, 4, 5);
print $numbers[2]; # 输出 3
# 修改数组
$numbers[0] = 10;
push @numbers, 6;
# 使用数组函数
my $length = scalar @numbers;
my @sorted = sort @numbers;
# 使用数组引用
sub print_array {
my ($array_ref) = @_;
foreach my $element (@$array_ref) {
print "$element";
}
}