在 Perl 中，操作数组是常见的任务。添加和删除数组元素可以通过多种方法来实现。以下是一些常用的操作方法：

添加数组元素

1. push 函数：

   • 用于将一个或多个元素添加到数组的末尾。
   • 语法：push @array, $value1, $value2, ...;

   my @array = (1, 2, 3);  
   push @array, 4;            # @array 变成 (1, 2, 3, 4)  
   push @array, (5, 6);       # @array 变成 (1, 2, 3, 4, 5, 6)  

2. unshift 函数：

   • 用于将一个或多个元素添加到数组的开头。
   • 语法：unshift @array, $value1, $value2, ...;

   my @array = (1, 2, 3);  
   unshift @array, 0;         # @array 变成 (0, 1, 2, 3)  
   unshift @array, (-2, -1);  # @array 变成 (-2, -1, 0, 1, 2, 3)  

删除数组元素

1. pop 函数：

   • 用于删除数组末尾的元素，并返回该元素。
   • 语法：$value = pop @array;

   my @array = (1, 2, 3, 4);  
   my $last = pop @array;     # $last 是 4，@array 变成 (1, 2, 3)  

2. shift 函数：

   • 用于删除数组开头的元素，并返回该元素。
   • 语法：$value = shift @array;

   my @array = (1, 2, 3, 4);  
   my $first = shift @array;  # $first 是 1，@array 变成 (2, 3, 4)  

3. splice 函数：

   • 用于删除数组中一个或多个元素，也可以在删除位置插入新元素。
   • 语法：splice @array, $offset, $length, @list;
   • $offset 是开始位置的索引，$length 是要删除的元素个数，@list 是要插入的新元素（可选）。

   my @array = (1, 2, 3, 4, 5);  
   my @removed = splice @array, 1, 2;  # @removed 是 (2, 3)，@array 变成 (1, 4, 5)  
   splice @array, 1, 0, (6, 7);        # @array 变成 (1, 6, 7, 4, 5)  

使用这些函数，您可以灵活地操作 Perl 数组的元素，以满足不同的编程需求。