如何优雅高效地返回移除第n个元素后的列表？

以下是几种更简洁或实用的实现方式：

• 切片直接生成新数组
  利用Perl的列表切片特性，直接拼接移除指定索引后的前后两段元素，写法直观且无需额外处理：

  return @a[0 .. $n-1, $n+1 .. $#a];
  

  当$n是数组首元素或尾元素时，其中一段切片会自动为空，不影响最终结果。这种方式无需先复制整个数组再修改，直接生成目标列表。

• 通过索引过滤生成新数组
  用grep过滤掉目标索引，再通过切片提取对应元素：

  return @a[ grep { $_ != $n } 0 .. $#a ];
  

  这种写法适合需要动态过滤多个索引的场景，单索引移除时可读性稍弱，但逻辑清晰。

• 紧凑版splice写法
  若偏好splice的语义，可以用do块把复制、修改、返回合并为一行，比原写法更简洁：

  return do { my @b = @a; splice @b, $n, 1; @b };
  

  本质和你最初的实现逻辑一致，但压缩了代码行数。

关于效率：以上几种方式生成新列表时都需要复制对应元素，日常场景下性能差异极小。如果数组规模极大且希望避免复制，可以考虑返回数组引用或使用迭代器，具体取决于你的场景需求。

内容的提问来源于stack exchange，提问作者mscha