[心得] 在 Dev C++ 中使用 Perl

[LiloHuang (相見不如懷念)]

首先開啟一個專案 (假設安裝 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
推 abliou:還蠻難懂的...看來有必要學C....orz
推 VElysian:請問最後一段 DEMO Code 是做什麼用的???
→ LiloHuang:用來DEMO在C裡面寫Perl  分為三段，仔細看一下就會明瞭
推 VElysian:其實我是 Perl 新手，但是會 C 語言..... ^^|||
→ VElysian:LiloHuang 板大好神~~~ 雖然看不懂 還是很感激您 ^^
推 clkao:see also http://gisle.aas.no/perl/illguts/
※ 編輯: LiloHuang       來自: 211.79.63.18         (08/07 20:07)