如何从Perl程序中调用C函数？

Question

test.c:

int sum(int a, int b)
{
    return (a+b);
}

test.pl:

# how do I call sum here?

Answer 1

use Inline C => <<'__END_OF_C__';

    int sum(int a, int b)
    {
        return (a+b);
    }

__END_OF_C__

say sum($x,$y);

Answer 2

你需要XS。它非常复杂，因此最好查看它的官方手册和教程页面：

http://perldoc.perl.org/perlxstut.html

http://perldoc.perl.org/perlxs.html