[心得] 在 Dev C++ 中使用 Perl (perlembed)
首先開啟一個專案 (假設安裝 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
推
12/20 18:14, , 1F
12/20 18:14, 1F
推
12/20 19:26, , 2F
12/20 19:26, 2F
→
12/20 19:34, , 3F
12/20 19:34, 3F
推
12/20 20:27, , 4F
12/20 20:27, 4F
→
12/20 20:27, , 5F
12/20 20:27, 5F
推
12/20 21:00, , 6F
12/20 21:00, 6F
※ 編輯: LiloHuang 來自: 211.79.63.18 (08/07 20:07)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
