Comment utiliser Perl's Inline :: C?

Question

J'ai un morceau de code comme celui-ci (fichier Perl):

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

code C aussi,

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

Comment puis-je utiliser ce code C avec Perl en utilisant Inline::C? J'ai essayé mais je ne comprends pas exactement.

Answer 1

• Jetez un oeil à Inline::C-Cookbook - Une corne d'abondance de recettes Inline C, vous obtiendrez beaucoup de exemples en utilisant Inline avec C.
• Voir Inline - Écrire des sous-routines Perl dans d'autres langages de programmation, vous apprendrez à utiliser Inline et vous obtiendrez des exemples C aussi.

Answer 2

essayer:

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