perl - 如何将数组传递给 Perl XS 中的 C 函数？

Question

如何通过引用 C XS 模块来传递 Perl 数组？

my @array = ( 1..20 );

XSTEST::test_array_passing(\@array);

我在 XS 中该怎么做才能看到数组？

Answer 1

XS 可以以 AV* 形式接收对 ARRAY 的引用。或 SV* .后者必须取消引用到 AV* .

use Inline C => DATA;
@array = (1 .. 20);
$r = sum_of_elements1(\@array);
$s = sum_of_elements2(\@array);
print "$r $s\n";  #  produces output: "210 210\n"
__END__
__C__
double sum_of_elements1(AV* array)
{
  int i;
  double sum = 0.0;
  for (i=0; i<=av_len(array); i++) {
    SV** elem = av_fetch(array, i, 0);
    if (elem != NULL)
      sum += SvNV(*elem);
  }
  return sum;
}

double sum_of_elements2(SV* array_ref)
{
  AV* array;
  if (!SvROK(array_ref) || SvTYPE(SvRV(array_ref)) != SVt_PVAV)
    croak("expected ARRAY ref");
  array = (AV*) SvRV(array_ref);
  return sum_of_elements1(array);
}

此代码生成的 .xs 文件声明:

double
sum_of_elements1 (array_ref)
        SV *    array_ref

double
sum_of_elements2 (array)
        AV *    array

编辑:在 sum_of_element2() ，添加了 *SV 是对数组的引用的检查。