我如何使用Perl的Inline :: C?

时间:2010-09-10 09:23:48

标签: perl inline

我有一段这样的代码(Perl文件):

print "9 + 16 = ", add(9, 16), "\n";
print "9 - 16 = ", subtract(9, 16), "\n";

C代码,

#include<stdio.h>

main ()
{
 int x = 9;
 int y = 16;
 printf(" add() is %d\n", add(x,y));
 printf(" sub() is %d\n", subtract(x,y));
//  return 0; 
}
int add(int x, int y) 
{
 return x + y;
}

int subtract(int x, int y) 
{
 return x - y;
} 

如何使用Inline::C使用perl运行此C代码?我试过了,但我并没有完全接受。

2 个答案:

答案 0 :(得分:8)

  • 看一看 Inline::C-Cookbook - 内联C食谱的聚宝盆,你 将使用Inline获得大量示例 与C
  • 请参阅Inline - 在其他编程语言中编写Perl子例程,您将了解如何使用Inline,您也将获得C示例。

答案 1 :(得分:5)

尝试:

use Inline 'C';

print "9 + 16 = ", add(9, 16), "\n";
print "9 - 16 = ", subtract(9, 16), "\n";

__END__
__C__

int add(int x, int y) {
 return x + y;
}

int subtract(int x, int y) {
 return x - y;
}