Как мне использовать Perl Inline :: C?

Question

У меня есть такой код (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;
} 

Как я могу запустить этот код C с Perl, используя Inline::C? Я пытался, но я не совсем получаю.

Answer 1

• Посмотрите на Inline::C-Cookbook - Рог изобилия рецептов Inline C, вы получит много примеров, используя Inline с C .
• См. Inline - Напишите подпрограммы Perl на других языках программирования, вы узнаете, как использовать Inline, и вы также получите примеры на языке Си.

Answer 2

попробуй:

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;
}