改文件轉載於：http://blog.sina.com.cn/s/blog_477759e70100cx82.html

今日，改寫一些perl生成順序遞增數的程式碼。為滿足測試，需要不斷執行以生成新的一百萬個隨機數。由於起始數不同，每次都需要在程式碼裡的修改再執行（或敲命令的傳遞）。若只是我使用，也不會覺得太麻煩。但，隊友使用起來就不太方便。還是用VC做個介面，在C/C++程式碼裡呼叫perl指令碼，做成笨蛋按鈕式的，呵呵。。。

    說真的，還真不知如何用C/C++呼叫perl呢？（當然這裡的C/C++，俺是說用VS環境裡的）。

   網上搜索一下，CSDN裡花3個積分下了一份簡便的說明文件（作者是誰忘了，別怪我）。操作步驟如下：

1.VS裡的工程設定：

工具->選項->專案和解決方案->VC++目錄 ，在“顯示以下內容的目錄(S):”下拉框中選擇“包括檔案”， 新增*\bin, *\lib\core, *表示perl的安裝路徑。

工具->選項->專案和解決方案->VC++目錄 ，在“顯示以下內容的目錄(S):”下拉框中選擇“庫檔案”，新增*\lib\core, *表示perl的安裝路徑。

把perl58.lib加入到工程中，專案->“專案”屬性->配置屬性->連結器->命令列， 在附加選項里加上perl56.lib(因為俺用的perl版本是5.6的)

2.在專案的程式碼裡新增標頭檔案

#include "EXTERN.h"     //引用外部的標頭檔案
#include "perl.h"       //perl標頭檔案

3. 專案程式程式碼

int _tmain(int argc, _TCHAR* argv[])
{
// char *embedding[] = {"","C:\\data.pl","E:\\dumptobin"};//perl指令碼和引數，第一個為空，沒有空格，
                                                        //第二個為指令碼檔案，第三個為指令碼的輸入引數
    char *embedding[] = {"","C:\\perl2\\CreateNumber.pl",""}; //俺的perl指令碼的真實路徑，沒有輸入引數

 static PerlInterpreter *my_perl;//定義一個perl直譯器

 my_perl = perl_alloc();//為直譯器分配資源

 perl_construct( my_perl );//建立一個直譯器

 perl_parse(my_perl, NULL, 3, embedding, NULL);//perl解析
   //perl_parse函式原型是：
   //PERL_CALLCONV int perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env)

 perl_run(my_perl);//執行

// int str = SvIV(perl_get_sv("lastValue", FALSE));//把perl指令碼中的變數lastValue傳給C中的變數str,無效的語句
// printf("返回值為%d.\n", str);

    perl_destruct(my_perl);//析構直譯器

 perl_free(my_perl);//釋放直譯器

 return 0;
}

大體上就這些了。其它的用VS做介面框，各人需要自己去弄。(當然你得先安裝了Perl)。

當然，這個仍是一個VC程式硬繫結一個perl指令碼，若要實現程式介面(上面暫是控制檯)和執行時刻選擇perl指令碼，嘿嘿，那就通過讀一個配置檔案以傳遞指令碼名稱吧。