Perl 中的列表（List）104

在 Perl 编程语言中，列表是一个有序且可变的数据结构，它可以存储各种元素，包括标量（如数字或字符串）、数组引用、哈希引用和其他列表。

创建列表

要创建列表，可以使用括号 ( ) 将元素用逗号分隔。例如：```perl
my @my_list = (1, 2, 3, 'foo', 'bar');
```

也可以使用列表构造函数 List::Util::list 创建列表：```perl
my @my_list = List::Util::list(1, 2, 3, 'foo', 'bar');
```

访问列表元素

可以使用方括号 ( ) 和索引来访问列表元素。索引从 0 开始，表示列表的第一个元素。例如：```perl
my $first_element = $my_list[0]; # 获取第一个元素
my $last_element = $my_list[-1]; # 获取最后一个元素
```

添加元素

可以使用 push 方法将元素添加到列表的末尾：```perl
push @my_list, 'new_element';
```

也可以使用 unshift 方法将元素添加到列表的开头：```perl
unshift @my_list, 'new_element';
```

删除元素

可以使用 pop 方法从列表的末尾删除元素：```perl
my $last_element = pop @my_list;
```

也可以使用 shift 方法从列表的开头删除元素：```perl
my $first_element = shift @my_list;
```

列表操作

连接列表

可以使用 + 运算符将两个或多个列表连接在一起：```perl
my @new_list = @my_list1 + @my_list2;
```

切片列表

可以使用切片运算符 (..) 来获取列表的一部分。切片运算符的语法如下：```
@array_name[start_index .. end_index]
```

例如：```perl
my @sub_list = @my_list[1 .. 3]; # 获取从第二个元素到第四个元素之间的元素
```

排序列表

可以使用 sort 函数对列表进行排序：```perl
my @sorted_list = sort @my_list;
```

也可以使用 sort 函数指定排序规则，例如：```perl
my @sorted_list = sort { $a $b } @my_list; # 根据数字值对列表进行排序
```

列表函数

Perl 提供了多种有用的列表函数，包括：* scalar @list：返回列表中元素的数量
* push @list, $element：向列表末尾添加元素
* unshift @list, $element：向列表开头添加元素
* pop @list：从列表末尾删除元素
* shift @list：从列表开头删除元素
* sort @list：对列表进行排序
* join($separator, @list)：使用指定的分隔符将列表中的元素连接成字符串

示例

以下示例演示了如何在 Perl 中使用列表：```perl
my @my_list = (1, 2, 3, 'foo', 'bar');
# 访问列表元素
my $first_element = $my_list[0];
my $last_element = $my_list[-1];
# 添加元素
push @my_list, 'new_element';
unshift @my_list, 'new_element';
# 删除元素
pop @my_list;
shift @my_list;
# 列表操作
my @new_list = @my_list1 + @my_list2;
my @sub_list = @my_list[1 .. 3];
my @sorted_list = sort @my_list;
# 列表函数
my $num_elements = scalar @my_list;
```