Perl中使用其他语言，使用Inline模块（二）：Inline::C和大量实例Inline::C-Cookbook-优快云博客

Since version 0.30 the Inline module supports multiple programming languages and each language has its own support module. This document describes how to use Inline with the C programming language.

3 Usage

1) It is just a support module for using Inline.pm with C. So the usage is always:

use Inline C => ...;

bind Inline C => ...;

2) An Example:

use strict;

use Inline C=> ‘DATA’;

# perl code goes here …

__DATA__

__C__

/*C code goes here …*/

4 Function Definitions

1) Function definition in C code which will be bound to Perl:

return-type function-name (type-name-pairs) {/*function body*/…}

2) type: int, long, double, char*, SV* (pointer to Scalar Value)(char*是字符串，SV*是数字串)

return-type: void, and Ditto

3) Notice:

Inline only looks for function definitions, not function prototypes. Definitions are the syntax directly preceeding a function body.

Inline does not scan external files, like headers. (Although other libraries can linked in, and called from C-space, only the code passed to Inline is used to create bindings.) ?

5 C Configuration Options

AUTO_INCLUDE

AUTOWRAP

…

6 C-Perl Bindings and The Inline Stack Macros

…

7 Writing C Subroutines

The definitions of your C functions will fall into one of the following four categories. For each category there are special considerations.

1) int Foo(int arg1, char* arg2, SV* arg3) {

2) void Foo(int arg1, char* arg2, SV* arg3) {

3) char* Foo(SV* arg1, ...) {

4) void* Foo(SV* arg1, ...) {

8 Examples

# !c:\perl\bin\perl-w

use strict;

use InlineC => ' DATA ' ;

greetStr( ' omohe ' );

greetStr( ' 65 ' );

greetScalar( " omohe " );

greetScalar( ' 65 ' );

__DATA__

__C__

voidgreetStr(char * name){

printf ( " Hellostring%s! " , name);

/* 能够直接使用printf而不需要include < stdio . h > 是因为Perl的内部已经实现了包含这些头文件 */

}

voidgreetScalar(SV * sv_name){

printf ( " Helloscalar%s! " , SvPVX(sv_name));

// SvPVXisaperlinternalAPI for convertingtheSVtostring

}

Notes: 如上是一个Inline C的示例程序

9 Inline::C-Cookbook (More Inline::C Examples)

http://www.penguin-soft.com/penguin/man/3/Inline::C-Cookbook.html

10. 一些实例：

# !c:perlinperl-w

use strict;

use InlineC => ' DATA ' ;

# Perlcodegoeshere...

print add( 10 , 5 );

__DATA__

__C__

/* Ccodegoeshere ...*/

int add( int x , int y){

return x * y;

}

调用Win32，显示窗体：

use InlineC => DATA =>

LIBS => ' -luser32 ' ;

$text = " @ARGV " || ' Inline.pmworkswithMSWin32.Scary... ' ;

WinBox( ' InlineTextBox ' , $text );

__END__

__C__

# include<windows.h>

int WinBox(char * Caption , char * Text){

return MessageBoxA( 0 , Text , Caption , 0 );

}

更多使用Inline::C的实例参看Inline::C-Cookbook

http://www.penguin-soft.com/penguin/man/3/Inline::C-Cookbook.html