Perl 数组赋值123

Perl 数组是一种有序的集合，其中元素使用数字索引进行访问。Perl 数组可以动态增长和缩减。您可以使用各种赋值操作符向 Perl 数组分配值。## 顺序赋值

最简单的赋值操作符是 =。它将值顺序分配给数组元素，从索引 0 开始：```
my @array = (1, 2, 3, 4, 5);
```

这将创建一个包含五个元素的数组，其中元素 1 位于索引 0，元素 2 位于索引 1，依此类推。## 使用列表赋值

您还可以使用列表赋值操作符 =() 将值分配给数组元素：```
my @array = (1, 2, 3, 4, 5);
@array = (6, 7, 8, 9, 10); # use list assignment to overwrite existing values
```

这将用新值覆盖 @array 中现有的值。## 使用索引赋值

要向特定索引处的数组元素分配值，请使用索引赋值操作符 []=：```
my @array = (1, 2, 3, 4, 5);
$array[2] = 6; # set the value at index 2 to 6
```

这将将索引 2 处的元素设置为 6。## 使用切片赋值

您还可以使用切片赋值操作符 ()= 向数组的指定范围分配值：```
my @array = (1, 2, 3, 4, 5);
@array[1..3] = (6, 7, 8); # set values at indices 1-3 to 6, 7, and 8
```

这将用新值覆盖索引 1 到 3 的元素。## 拓展赋值

如果您要向数组中添加一个或多个新元素，可以使用拓展赋值操作符 .=：```
my @array = (1, 2, 3);
@array .= (4, 5, 6); # append new elements to the array
```

这将把元素 4、5 和 6 添加到 @array 的末尾。## 合并赋值

要将两个或多个数组合并成一个数组，可以使用合并赋值操作符 .=：```
my @array1 = (1, 2, 3);
my @array2 = (4, 5, 6);
@array1 .= @array2; # merge array2 into array1
```

这将创建一个包含所有元素的新数组 @array1 @array2。## 赋值到标量上下文中

当您在标量上下文中使用数组赋值操作符时，将仅返回数组的第一个元素：```
my $scalar = @array; # returns the first element of the array
```

要返回整个数组，请使用数组引用语法：```
my $array_ref = \@array; # returns a reference to the array
```

2024-12-07

上一篇：深入解析 Perl 中的数组定义和操作

下一篇：深入理解 Perl 函数调用机制