Embed perl in c/c++， C调用perl， perl调用C 技术详解

我先介绍要从perl里面调用C的函数的处理方法 ：

请大家下看下面的代码， 其中关键的地方为 void boot_DEP (pTHX_ CV* cv) 函数， 还有 newXS("DEP::bootstrap", boot_DEP, file);

这两个函数代表的意思是： DEP为 perl 调用C的模块名， 也就是说我们还需要写一个 DEP.pm的模块，让其他的perl模块编译的时候不至于编译出错。

newXS 这个函数比较特殊，相当于perl会做一个 key--->Value的映射关系， DEP.pm 里面的bootstrap函数调用会映射为C里面的

boot_DEP函数调用。

函数 xs_init 这个函数是perl内置的回调函数， perl会调用它， 在xs_init函数里面会调用boot_DEP函数， boot_DEP函数里面的

newXS ("DEP::shutdown", xs_shutdown, "COMMON.c"); 相当于什么呢 ？

相当于做了key---->value 的映射关系 ， 当perl调用 DEP模块的shutdown时， 就会变为调用C的 xs_shutdown函数。

#include <EXTERN.h> #include <perl.h> #include <XSUB.h> EXTERN_C void boot_DynaLoader (pTHX_ CV* cv); EXTERN_C void boot_DEP (pTHX_ CV* cv); EXTERN_C void xs_init(pTHX) { char *file = __FILE__; dXSUB_SYS; newXS("DEP::bootstrap", boot_DEP, file); /* DynaLoader is a special case */ newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); } XS(xs_shutdown) { dXSARGS; /* local declarations for XS */ /* TODO: add some protection to this function */ int a = 0; XSRETURN(0); } void boot_DEP (pTHXo_ CV* cv) { //newXS ("DEP::XXPRINTS", xs_XXPRINTS, "COMMON.c"); newXS ("DEP::shutdown", xs_shutdown, "COMMON.c"); }

下面在看看DEP.pm这个模块的代码

#! /usr/bin/perl -w package DEP; use strict; our @ISA = qw(Exporter); use Exporter; our @EXPORT_OK = qw(shutdown); bootstrap DEP; # tie standard input, standard output, standard error to our I/O module tie (*STDIN, 'DEP::IO'); tie (*STDOUT, 'DEP::IO'); tie (*STDERR, 'DEP::Debug'); sub shutdown(); # XSUB package DEP::IO; sub TIEHANDLE { bless [], shift } sub READLINE; # XSUB sub READ; # XSUB sub GETC; # XSUB sub PRINT; # XSUB package DEP::Debug; sub TIEHANDLE { bless [], shift } sub PRINT; # XSUB

下来随便写个 xxx.pl文件， 内容如下, 在C中的xs_shutdown函数中设置个断点， 调试启动，就会看到perl调用到C里面了。

经过本人测试， 有个比较奇怪的地方，就是在 xxx.pl文件的开始的地方 用use DEP; 把sub bar 函数中的 require DEP; 去掉，

会造成 perl无法调用到C的问题， 不知道为什么， 只能像下面这样使用才能调用到C的代码里面。

use strict; sub bar { print "***** sub bar/n"; require DEP; DEP::shutdown (); print "bar finish/n"; }

C调用Perl就比较简单了， 需要注意的是 PERL_SYS_INIT3(argc,argv,env); 很关键。 最好在main函数入口就调用该函数。

还有就是 在 perl_construct 函数之前需要设置 PL_perl_destruct_level 为1， 具体代码如下：

PL_perl_destruct_level = 1;

perl_construct ( poPerlInterpreter );
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

另外是如果同一个进程内需要多个perl的解释器同时运行的话， 在调用perl解释器处理事务的时候需要对当前的perl解释器进行设置，

用 PERL_SET_CONTEXT 进行设置当前的解释器。