Question

我想导入我写的C函数

#include <math.h>
#include <stdio.h>

double function (const double *restrict ARRAY1, const size_t ARRAY1_SIZE, const double *restrict ARRAY2, const size_t ARRAY2_SIZE) {//calculate a p-value based on an array
....
}
int main(){
....
}

进入perl脚本，我看过Inline :: C和XS，但我看不到如何使用它们，我无法通过这些示例，我还需要lgamma函数。该函数将2个数组作为输入。

是否有人能够提供一个示例，说明如何在导入C的math.h时将其导入perl脚本？

Answer 1

这个问题的棘手部分是将Perl数组从Perl传递给C.

一种方法是使用两个步骤。将Perl数组（C中的AV*）转换为double数组，然后调用您的函数。这里使用的perl函数和宏记录在perlguts

中

use Inline 'C';
@a = (1,2,3,4,5);
@b = (19,42);
$x = c_function(\@a,\@b);
print "Result: $x\n";
__END__
__C__
#include <stdio.h>
#include <math.h>
double *AV_to_doubleptr(AV *av, int *len)
{
    *len = av_len(av) + 1;
    double *array = malloc(sizeof(double) * *len);
    int i;
    for (i=0; i<*len; i++)
        array[i] = SvNV( *av_fetch(av, i, 0) );
    return array;  /* returns length in len as side-effect */
}

double the_real_function(const double *x1, int n1, const double *x2, int n2)
{
    ...
}

double c_function(AV *av1, AV *av2)
{
    int n1, n2;
    double *x1 = AV_to_doubleptr(av1, &n1);
    double *x2 = AV_to_doubleptr(av2, &n2);
    double result = the_real_function(x1,n1, x2,n2);
    free(x2);
    free(x1);
    return result;
}

Answer 2

以下是使用Inline::C的示例，同时从$arr = array_map($arr, function ($v) { return $v->id; });调用函数：

math.h

输出：

use warnings;
use strict;

use Inline 'C';

my $num = c_function(5, 5);

print "$num\n";

__END__
__C__

#include <math.h>
#include <stdio.h>

double c_function(int x, int y){
    return pow(x, y);
}

将C函数导入Perl程序

2 个答案: