c语言中嵌入perl函数

c代码interp.c

#include <EXTERN.h>
#include <perl.h>

static PerlInterpreter *my_perl;

int main(int argc, char **argv, char **env)
{
	char *args[] = { NULL };
	PERL_SYS_INIT3(&argc,&argv,&env);
	my_perl = perl_alloc();
	perl_construct(my_perl);
	perl_parse(my_perl, NULL, argc, argv, NULL);
	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

	call_argv("Hello", G_DISCARD | G_NOARGS, args);
	perl_destruct(my_perl);
	perl_free(my_perl);
	PERL_SYS_TERM();
}

编译

gcc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`

perl代码hello.pl

#!/usr/bin/perl 
# 函数定义
sub Hello{
   print "Hello, World!\n";
}

# 函数调用
Hello();

运行

$ ./interp hello.pl 
Hello, World!

 

转载于:https://my.oschina.net/u/2245781/blog/1204746

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值