tar包位置：http://www.shnenglu.com/Files/changup/c_perl.tar
本次測試比較完整的一個c文件，貼出來，請高人指點完善，爭取大家實際中能用好，畢竟感覺在程序中嵌入解釋性的腳本是非常好的，尤其針對復雜多變的業務邏輯部分；
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter* my_perl;
#define CALLFUN_BEGIN dSP; \
ENTER; \
SAVETMPS; \
PUSHMARK(SP);
#define CALLFUN_END FREETMPS;\
LEAVE;
void initperlenv(int argc, char* argv[])
{
my_perl = perl_alloc();
perl_construct(my_perl);
perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
}
void destroyperlenv()
{
perl_destruct(my_perl);
perl_free(my_perl);
}
/* 普通perl標量的操作
*/
void SV_test()
{
//創建
SV* sv_i = newSViv(99);
SV* sv_n = newSVnv(23.45);
SV* sv_p = newSVpv("test string",0);
SV* funstring = 0;
//將變量設置為mortal；
sv_2mortal(sv_i);
sv_2mortal(sv_n);
sv_2mortal(sv_p);
//探測類型
if(SvIOK(sv_i))
{
printf("sv_i is a int type,value=%d\n", *(int*)(sv_i->sv_any));
}
else
{
printf("sv_i is not a int type\n");
}
if(SvNOK(sv_n))
{
printf("sv_n is a double type\n");
}
else
{
printf("sv_n is not a double type\n");
}
if(SvPOK(sv_p))
{
printf("sv_p is a string type\n");
}
else
{
printf("sv_p is not a string type\n");
}
//探測類型，這次打印出的是類型的宏定義
printf("sv_i.type=%u\n", SvTYPE(sv_i));
printf("sv_n.type=%u\n", SvTYPE(sv_n));
printf("sv_p.type=%u\n", SvTYPE(sv_p));
//以優美的格式打印標量
sv_dump(sv_i);
sv_dump(sv_n);
sv_dump(sv_p);
//修改值
sv_setiv(sv_i,89);
sv_dump(sv_i);
sv_setnv(sv_n,89.76);
sv_dump(sv_n);
sv_setpv(sv_p,"String changed");
sv_dump(sv_p);
//操作pl腳本中的文件
funstring = perl_get_sv("main::getstring",1); //沒有得到值
sv_dump(funstring);
}
/* 操作perl函數
sub fun1()
{
$username = shift;
$arg = shift;
print "your name=$username,your arg=$arg\n";
return 88;
}
*/
int call_fun()
{
//調用函數前的perl堆棧操作
CALLFUN_BEGIN;
//參數入棧
XPUSHs(sv_2mortal(newSVpv("changym",0)));
XPUSHs(sv_2mortal(newSViv(32)));
PUTBACK; //表示參數完了
//調用函數
perl_call_pv("fun1",G_SCALAR); //G_SCALAR---返回標量;G_ARRAY--返回數組
/*
#define G_SCALAR 0
#define G_ARRAY 1
#define G_VOID 128 /* skip this bit when adding flags below */
//extra flags for Perl_call_* routines
//#define G_DISCARD 2 /* Call FREETMPS. */
//#define G_EVAL 4 /* Assume eval {} around subroutine call. */
//#define G_NOARGS 8 /* Don't construct a @_ array. */
//#define G_KEEPERR 16 /* Append errors to $@, don't overwrite it */
//#define G_NODEBUG 32 /* Disable debugging at toplevel. */
//#define G_METHOD 64 /* Calling method. */
//開始操作返回值了
SPAGAIN;
printf("inner ibm.pl,fun1 return %s\n",POPp); //POPi---int, POPp--pchar
PUTBACK; //表示返回值取完了
//perl棧資源回收
CALLFUN_END;
return 0;
}
/* 操作perl函數,perl 函數返回一個數組
sub return_array()
{
@arr = ("changym","chenjx","changjr","xiaobaobao");
print "inner ibm.pl.return_array:@arr\n";
}
*/
int call_fun_ret_array()
{
int ireturn = 0;
STRLEN n_a; //詭異的現象，非要定義這個否則打印值的哪行就報錯
//ibm.c:162: `n_a' undeclared (first use in this function)
//同樣的問題就是PerlInterpreter的名字必須叫my_perl,為什么?。?br> //調用函數前的perl堆棧操作
CALLFUN_BEGIN;
PUTBACK; //表示參數完了
//調用函數
ireturn = perl_call_pv("return_array",G_ARRAY); //G_SCALAR---返回標量;G_ARRAY--返回數組
//開始操作返回值了
SPAGAIN;
if(ireturn>0)
{
while(ireturn>0)
{
//返回的順序是數組的倒敘啊？
printf("coming from ibm.pl.return_array:%d-%s\n",ireturn--,POPpx);
}
}
PUTBACK; //表示返回值取完了
//perl棧資源回收
CALLFUN_END;
return 0;
}
int main(int argc, char* argv[])
{
char* my_argv[] = {"","ibm.pl"};
printf("begin c_perl_ibm_test\n");
printf("init perl env\n");
initperlenv(2,my_argv);
//標量操作測試
//SV_test();
//函數操作測試
//call_fun();
//操作perl函數返回數組測試
call_fun_ret_array();
destroyperlenv();
printf("leaved c_perl_ibm_test\n");
return 0;
}
在做電信寬帶認證Radius系統的時候，采用了開源的freeradius系統，其中有個perl的模塊非常的方便，多變的業務邏輯交給解釋性的perl去執行，這樣在后期的維護、上線就邊的非常簡單，不用修改C程序。近期打算摘一下C和Perl的交互，分離出一個包公用。
請教大家這樣的案例還有沒有更簡單的組合？期待CPP博客的高手們開壇講經...
補充一下：開源的現成框架更好！
生成隨機數的一段代碼。引來一片噓噓，刪掉了一句，呵呵，頂不住了。可是我覺得夠用就行了為原則。
改進一下，提高種子的精度，完了引入os的radom設備
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <sys/time.h>
void init_random()
{
unsigned int ticks;
struct timeval tv;
gettimeofday(&tv,NULL);
ticks = tv.tv_sec + tv.tv_usec;
srand(ticks);
}
//ibuflen---需要生成的隨即串的長度
int genrandstr(char* pszbuf,int ibuflen)
{
static const char sourchar[] = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
init_random();
for(int i=0;i<ibuflen;i++)
{
int x = rand()/(RAND_MAX/(sizeof(sourchar)-1));
pszbuf[i] = sourchar[x];
}
pszbuf[ibuflen] = '\0';
}
int main(int argc, char* argv[])
{
printf("begin randstr...,RAND_MAX=%d\n",RAND_MAX);
char buf[9] = {0};
genrandstr(buf,8);
printf("randstr=%s\n",buf);
genrandstr(buf,8);
printf("randstr=%s\n",buf);
genrandstr(buf,8);
printf("randstr=%s\n",buf);
genrandstr(buf,8);
printf("randstr=%s\n",buf);
genrandstr(buf,8);
printf("randstr=%s\n",buf);
genrandstr(buf,8);
printf("randstr=%s\n",buf);
printf("end randstr...\n");
return 0;
}
摘要: 由于項目中經常遇到讀取配置文件的地方，為方便調用雖寫了個功能簡單，使用方便的配置文件類，基本思路是將配置文件緩沖到map當中，目前只支持一級配置，多級別的樹形配置暫不支持，有需要的兄弟請完善。為單實例模式。config2map.h
// config2map.h// 配置文件到map的映射類，單實例模式// 創建: 2010-09-13 chan...
閱讀全文