久久久无码精品亚洲日韩蜜臀浪潮,国产成人久久精品一区二区三区,久久AAAA片一区二区

c中调用perl的测试小�E�序�Q�各�U�场景��l�测试中

changup — Thu, 30 Dec 2010 10:14:00 GMT

tar包位�|�：http://www.shnenglu.com/Files/changup/c_perl.tar

本次��试比较完整的一个c文�g�Q�脓出来�Q�请高�h指点完善�Q�争取大家实际中能用好，毕竟感觉在程序中嵌入解释性的脚本是非常好的，��其针对复杂多变的业务逻辑部分�Q?br>

#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标量的操�?br>*/
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�Q?/span>
    sv_2mortal(sv_i);
    sv_2mortal(sv_n);
    sv_2mortal(sv_p);

    //探测�c�d��
    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�d��Q�这�ơ打印出的是�c�d��的宏定义
    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);

    //修改�?/span>
    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脚本中的文�g
    funstring = perl_get_sv("main::getstring",1); //没有得到�?/span>
    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---�q�回标量;G_ARRAY--�q�回数组
    /*
    #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. */

    //开始操作返回��g��
    SPAGAIN;
    printf("inner ibm.pl,fun1 return %s\n",POPp); //POPi---int, POPp--pchar
    PUTBACK; //表示�q�回值取完了

    //perl栈资源回�?/span>
    CALLFUN_END;
    return 0;
}

/* 操作perl函数,perl 函数�q�回一个数�l?br>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; //诡异的现象，非要定义�q�个否则打印值的哪行��报�?br>                //ibm.c:162: `n_a' undeclared (first use in this function)
                //同样的问题就是PerlInterpreter的名字必��d��my_perl,��Z��么啊�Q?br>    //调用函数前的perl堆栈操作
    CALLFUN_BEGIN;
    PUTBACK; //表示参数完了

    //调用函数
    ireturn = perl_call_pv("return_array",G_ARRAY); //G_SCALAR---�q�回标量;G_ARRAY--�q�回数组
    //开始操作返回��g��
    SPAGAIN;
    if(ireturn>0)
    {
        while(ireturn>0)
        {
            //�q�回的顺序是数组的倒叙啊？
            printf("coming from ibm.pl.return_array:%d-%s\n",ireturn--,POPpx);
        }
    }

    PUTBACK; //表示�q�回值取完了
    //perl栈资源回�?/span>
    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函数�q�回数组��试
    call_fun_ret_array();

    destroyperlenv();
    printf("leaved c_perl_ibm_test\n");
    return 0;
}

changup 2010-12-30 18:14 发表评论

C、C++�E�序潜入解释性语�a�

changup — Fri, 24 Dec 2010 02:22:00 GMT

在做电信宽带认证Radius�pȝ��的时候，采用了开源的freeradius�pȝ��Q�其中有个perl的模块非常的方便�Q�多变的业务逻辑交给解释性的perl��L��行，�q�样在后期的�l�护、上�U�就边的非常��单，不用修改C�E�序。近期打��摘一下C和Perl的交互，分离��Z��个包公用�?br>��h��大家�q�样的案例还有没有更��单的�l�合�Q�期待CPP博客的高手们开坛讲�l?..
补充一下：开源的现成框架更好�Q?/p>

changup 2010-12-24 10:22 发表评论

changup — Thu, 23 Dec 2010 01:15:00 GMT

生成随机数的一�D�代码。引来一片嘘嘘，删掉了一句，呵呵�Q�顶不住了。可是我觉得够用��p��了�ؓ原则�?br>改进一下，提高�U�子的精度，完了引入os的radom讑֤�

#include
#include
#include
#include

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;
}

changup 2010-12-23 09:15 发表评论

�l�箋上一块砖�Q�引来玉。一个命令行参数的解析类CArgNodeList

changup — Wed, 15 Dec 2010 07:10:00 GMT

摘要: 阅读全文

changup 2010-12-15 15:10 发表评论

单实例模式的一个C++��d��配置文�g的类CConfig2Map

changup — Tue, 14 Dec 2010 07:48:00 GMT

摘要: �׃��目中经帔R��到读取配�|�文件的地方�Q��ؓ方便调用虽写了个功能��单，使用方便的配�|�文件类�Q�基本思�\是将配置文�g�~�冲到map当中�Q�目前只支持一�U�配�|�，多��别的树�Ş配置暂不支持�Q�有需要的兄弟请完善。�ؓ单实例模式。config2map.h // config2map.h// 配置文�g到map的映��类�Q�单实例模式// 创徏: 2010-09-13 chan... 阅读全文

changup 2010-12-14 15:48 发表评论

一个udp server的仿�l��g的封装，抛砖引玉

changup — Tue, 14 Dec 2010 03:34:00 GMT