tar包位置：http://m.shnenglu.com/Files/changup/c_perl.tar
本次測(cè)試比較完整的一個(gè)c文件，貼出來，請(qǐng)高人指點(diǎn)完善，爭(zhēng)取大家實(shí)際中能用好，畢竟感覺在程序中嵌入解釋性的腳本是非常好的，尤其針對(duì)復(fù)雜多變的業(yè)務(wù)邏輯部分；
#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標(biāo)量的操作
*/
void SV_test()
{
//創(chuàng)建
SV* sv_i = newSViv(99);
SV* sv_n = newSVnv(23.45);
SV* sv_p = newSVpv("test string",0);
SV* funstring = 0;
//將變量設(shè)置為mortal；
sv_2mortal(sv_i);
sv_2mortal(sv_n);
sv_2mortal(sv_p);
//探測(cè)類型
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");
}
//探測(cè)類型，這次打印出的是類型的宏定義
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));
//以優(yōu)美的格式打印標(biāo)量
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函數(shù)
sub fun1()
{
$username = shift;
$arg = shift;
print "your name=$username,your arg=$arg\n";
return 88;
}
*/
int call_fun()
{
//調(diào)用函數(shù)前的perl堆棧操作
CALLFUN_BEGIN;
//參數(shù)入棧
XPUSHs(sv_2mortal(newSVpv("changym",0)));
XPUSHs(sv_2mortal(newSViv(32)));
PUTBACK; //表示參數(shù)完了
//調(diào)用函數(shù)
perl_call_pv("fun1",G_SCALAR); //G_SCALAR---返回標(biāo)量;G_ARRAY--返回?cái)?shù)組
/*
#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函數(shù),perl 函數(shù)返回一個(gè)數(shù)組
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; //詭異的現(xiàn)象，非要定義這個(gè)否則打印值的哪行就報(bào)錯(cuò)
//ibm.c:162: `n_a' undeclared (first use in this function)
//同樣的問題就是PerlInterpreter的名字必須叫my_perl,為什么啊？
//調(diào)用函數(shù)前的perl堆棧操作
CALLFUN_BEGIN;
PUTBACK; //表示參數(shù)完了
//調(diào)用函數(shù)
ireturn = perl_call_pv("return_array",G_ARRAY); //G_SCALAR---返回標(biāo)量;G_ARRAY--返回?cái)?shù)組
//開始操作返回值了
SPAGAIN;
if(ireturn>0)
{
while(ireturn>0)
{
//返回的順序是數(shù)組的倒敘啊？
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);
//標(biāo)量操作測(cè)試
//SV_test();
//函數(shù)操作測(cè)試
//call_fun();
//操作perl函數(shù)返回?cái)?shù)組測(cè)試
call_fun_ret_array();
destroyperlenv();
printf("leaved c_perl_ibm_test\n");
return 0;
}
在做電信寬帶認(rèn)證Radius系統(tǒng)的時(shí)候，采用了開源的freeradius系統(tǒng)，其中有個(gè)perl的模塊非常的方便，多變的業(yè)務(wù)邏輯交給解釋性的perl去執(zhí)行，這樣在后期的維護(hù)、上線就邊的非常簡(jiǎn)單，不用修改C程序。近期打算摘一下C和Perl的交互，分離出一個(gè)包公用。
請(qǐng)教大家這樣的案例還有沒有更簡(jiǎn)單的組合？期待CPP博客的高手們開壇講經(jīng)...
補(bǔ)充一下：開源的現(xiàn)成框架更好！
生成隨機(jī)數(shù)的一段代碼。引來一片噓噓，刪掉了一句，呵呵，頂不住了。可是我覺得夠用就行了為原則。
改進(jìn)一下，提高種子的精度，完了引入os的radom設(shè)備
#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---需要生成的隨即串的長(zhǎng)度
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;
}
摘要: 由于項(xiàng)目中經(jīng)常遇到讀取配置文件的地方，為方便調(diào)用雖寫了個(gè)功能簡(jiǎn)單，使用方便的配置文件類，基本思路是將配置文件緩沖到map當(dāng)中，目前只支持一級(jí)配置，多級(jí)別的樹形配置暫不支持，有需要的兄弟請(qǐng)完善。為單實(shí)例模式。config2map.h
// config2map.h// 配置文件到map的映射類，單實(shí)例模式// 創(chuàng)建: 2010-09-13 chan...
閱讀全文