作者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)