作者LiloHuang (相见不如怀念)
看板Perl
标题[心得] 在 Dev C++ 中使用 Perl
时间Thu Dec 20 15:41:12 2007
首先开启一个专案 (假设安装 ActivePerl 5.88,安装目录为 C:\Perl 下面 )
1. [专案] -> [函式库]与[标头档]的路径都要
加入 C:\Perl\lib\CORE
2. 在[参数] -> [连结器] -> [新增函式库或obj]
加入 C:\Perl\lib\CORE\perl58.lib 加入
3. 这是一份 DEMO Code 用以测试使用,更多资讯请上网查 perlembed
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
int main (int argc, char **argv, char **env) {
STRLEN n_a;
char *embedding[] = { "", "-e", "0" };
PERL_SYS_INIT3(&argc,&argv,&env);
my_perl = perl_alloc();
perl_construct( my_perl );
perl_parse(my_perl, NULL, 3, embedding, NULL);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
perl_run(my_perl);
eval_pv("$tmp = 'test';\
if($tmp=~/(te)st/) {\
$a = $1;\
}", TRUE);
printf("a = %s\n", SvPV(get_sv("a", FALSE), n_a));
eval_pv("$a = 3.14; $a **= 2", TRUE);
printf("a = %f\n", SvNV(get_sv("a", FALSE)));
eval_pv("$a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE);
printf("a = %s\n", SvPV(get_sv("a", FALSE), n_a));
perl_destruct(my_perl);
perl_free(my_perl);
PERL_SYS_TERM();
system("PAUSE");
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.71.40
1F:推 abliou:还蛮难懂的...看来有必要学C....orz 12/20 18:14
2F:推 VElysian:请问最後一段 DEMO Code 是做什麽用的??? 12/20 19:26
3F:→ LiloHuang:用来DEMO在C里面写Perl 分为三段,仔细看一下就会明了 12/20 19:34
4F:推 VElysian:其实我是 Perl 新手,但是会 C 语言..... ^^||| 12/20 20:27
5F:→ VElysian:LiloHuang 板大好神~~~ 虽然看不懂 还是很感激您 ^^ 12/20 20:27
※ 编辑: LiloHuang 来自: 211.79.63.18 (08/07 20:07)