C++调用perl代码 - eval_sv不将参数传递给脚本

Question

我有下面的示例程序,它将参数推送到Perl堆栈,然后调用"eval_sv".样本perl语句被执行但我无法检索从C++传递的变量作为Perl参数.请让我知道以下程序中缺少的内容

该计划的输出

你好,世界

测试

100测试完成

此行不会打印$ a和$ b的值

string three = "print 'Test\n'; my $z = 100; print $a; print $b; print $z;";

这是我的代码:

#include <EXTERN.h>
#include <perl.h>
#include <string>
using namespace std;

string perlScript;

static PerlInterpreter *my_perl;

SV* my_eval_sv(I32 croak_on_error)
{
    STRLEN n_a;
    char *p1 = new char [perlScript.size()+1];
    strcpy(p1, perlScript.c_str());
    const char *p = p1;
    int len = strlen(p);

    dSP;
    ENTER ;
    SAVETMPS ;
    PUSHMARK(SP) ;


    int a, b;
    a = 10;
    b = 20;

    PERL_SET_CONTEXT(my_perl);
    XPUSHs(sv_2mortal(newSViv(a)));
    PERL_SET_CONTEXT(my_perl);
    XPUSHs(sv_2mortal(newSViv(b)));


    /* Done with pushing pointers to Perl stack */

    PUTBACK;

    SV* sv1 = newSVpv(p, 0);    
    eval_sv(sv1, G_EVAL | G_KEEPERR);
    SvREFCNT_dec(sv1);

    SPAGAIN;
    sv1 = POPs;
    PUTBACK;

    FREETMPS;
    LEAVE;

    if (croak_on_error && SvTRUE(ERRSV))
        croak(SvPVx(ERRSV, n_a));   
}

main (int argc, char **argv, char **env)
{
    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;

    /*string perlBeginScript;
    static const char * perlEndScript = "\
                                 \n\
    }\n\
    ";

    if(perlBeginScript.length()==0)
    {
        perlBeginScript="EmbeddedPerl";
    }

    perlScript = "sub ";
    perlScript += perlBeginScript;
    perlScript += "{\n"; */

    string one = "print 'Hello World\n'; ";
    string two = "my $a = shift; my $b = shift; ";
    string three= "print 'Test\n'; my $z = 100; print $a; print $b; print $z;";
    string four = "print 'Testing complete\n';";

    perlScript += one ;
    perlScript += two;
    perlScript += three;
    perlScript += four;

    //perlScript += perlEndScript;

    /* Done with perl script to be executed */
    my_eval_sv(TRUE);
    PL_perl_destruct_level = 1;
    perl_destruct(my_perl);
    perl_free(my_perl);
    PERL_SYS_TERM(); 
    }

Answer 1

我只是在这里猜测...

您尝试通过将一些值放在 Perl 堆栈上来将它们传递给 Perl 代码，然后您期望调用shift从堆栈中检索值。

根据范围的不同shift，使用@_or@ARGV和 none 都不能与“堆栈”互换。仅通过进行 perl 子例程调用@_才能填充堆栈中的元素。这是通过perlcallcall_sv手册页中描述的函数完成的。

在您的情况下shift，不是从子例程内部调用的，因此它尝试从@ARGV. 但由于该数组为空，您的变量将被设置为undef与您获得的输出一致的值。

如果您需要传递参数，我建议您将 Perl 代码编写为匿名子路由。这就是 eval 你的子例程定义，然后在设置堆栈后eval_pv()调用它。call_sv()代码中注释掉的部分似乎表明您已经研究过这种方法（但使用了命名子例程）。

或者，您需要@ARGV通过退休来推动您的论点get_av，然后对其执行适当的操作。虽然我不确定是否@ARGV有任何魔法。