如何在XSUB中使用perlapi/XS实现Perl数组元素的插入与删除

Perl API里确实没有直接对应Perl层splice的av_splice函数，但有几种现成的方式可以高效实现插入/删除操作，不用手动循环移动元素：

• 针对数组开头的操作：av_unshift 和 av_shift

  • av_unshift(AV* av, I32 num)：在数组头部插入num个空元素，你可以随后用av_store填充这些位置；也可以用它直接为头部插入元素预留空间。
  • av_shift(AV* av)：移除数组第一个元素并返回该元素，数组会自动收缩，后续元素会自动前移，无需手动处理元素移动。

• 模拟Perl的splice实现任意位置操作
  如果你需要在任意位置插入、删除或替换元素，完全模拟Perl内置splice的行为，可以直接在XS中调用Perl的splice函数，用call_pv实现：

  // 示例：对数组av，从位置pos删除length个元素，插入list数组的元素
  SV* deleted = call_pv("splice", G_SCALAR, 4, 
      newRV_noinc((SV*)av),  // 传入数组引用
      newSViv(pos),          // 起始位置
      newSViv(length),       // 要删除的元素数量
      list                   // 要插入的数组（可选，不需要则传&PL_sv_undef）
  );
  

  调用后会返回被删除元素组成的数组引用，若不需要返回值可以加上G_DISCARD标志。

• 关于av_delete的补充
  你提到的av_delete确实仅将指定位置的元素替换为undef，不会改变数组长度。如果要真正移除元素并收缩数组，上述两种方式是更合适的选择。

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