数组

1. 什么是数组？

数组是一种数据结构，用于存储一组有序的元素。在Perl中，数组可以包含任意类型的数据，包括标量、其他数组、哈希表等。数组中的每个元素都有一个唯一的索引，通过这个索引可以访问和操作数组中的元素。

2. 创建数组

在Perl中，数组可以通过以下几种方式创建：

2.1 直接赋值

my @array = (1, 2, 3, 4, 5);

2.2 逐个添加元素

my @array;
$array[0] = 1;
$array[1] = 2;
$array[2] = 3;

2.3 使用qw简写

my @array = qw(apple banana cherry);

3. 访问数组元素

数组中的元素可以通过索引访问，索引从0开始。

my @array = (10, 20, 30);
print $array[0];  # 输出: 10
print $array[1];  # 输出: 20
print $array[2];  # 输出: 30

4. 数组操作

4.1 获取数组长度

可以使用scalar函数获取数组的长度。

my @array = (1, 2, 3, 4, 5);
my $length = scalar @array;
print "数组长度: $length\n";  # 输出: 数组长度: 5

4.2 添加元素

可以使用push和unshift函数分别在数组的末尾和开头添加元素。

my @array = (1, 2, 3);
push @array, 4;  # 在末尾添加元素
unshift @array, 0;  # 在开头添加元素
print "@array\n";  # 输出: 0 1 2 3 4

4.3 删除元素

可以使用pop和shift函数分别从数组的末尾和开头删除元素。

my @array = (1, 2, 3, 4);
my $last_element = pop @array;  # 删除并返回末尾元素
my $first_element = shift @array;  # 删除并返回开头元素
print "删除的末尾元素: $last_element\n";  # 输出: 删除的末尾元素: 4
print "删除的开头元素: $first_element\n";  # 输出: 删除的开头元素: 1
print "@array\n";  # 输出: 2 3

4.4 切片

可以使用切片操作获取数组的一部分元素。

my @array = (1, 2, 3, 4, 5);
my @slice = @array[1..3];  # 获取索引1到3的元素
print "@slice\n";  # 输出: 2 3 4

5. 数组与循环

数组常常与循环结合使用，以便遍历数组中的所有元素。

5.1 使用foreach循环

my @array = (1, 2, 3, 4, 5);
foreach my $element (@array) {
    print "$element\n";
}

5.2 使用for循环

my @array = (1, 2, 3, 4, 5);
for (my $i = 0; $i < @array; $i++) {
    print "$array[$i]\n";
}

6. 实践练习

练习1：创建并打印数组

创建一个包含5个整数的数组，并打印每个元素。

my @numbers = (10, 20, 30, 40, 50);
foreach my $number (@numbers) {
    print "$number\n";
}

练习2：添加和删除元素

创建一个空数组，依次添加元素1, 2, 3，然后删除最后一个元素，并打印数组。

my @array;
push @array, 1;
push @array, 2;
push @array, 3;
pop @array;
print "@array\n";  # 输出: 1 2

练习3：数组切片

创建一个包含10个元素的数组，并获取索引2到5的元素，打印这些元素。

my @array = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
my @slice = @array[2..5];
print "@slice\n";  # 输出: 2 3 4 5

7. 总结

数组是Perl中非常重要的数据结构，用于存储和操作一组有序的元素。通过本教程，你应该已经掌握了如何创建数组、访问数组元素、操作数组以及如何使用循环遍历数组。继续练习和探索，你将能够更灵活地使用数组来解决实际问题。