如何在C++应用程序中嵌入Perl？

sudo apt-get install libperl-dev

#include<iostream>
#include <perl.h>
#include <EXTERN.h>

int main() {
    // 初始化Perl解释器
    PerlInterpreter *my_perl = perl_alloc();
    PerlInterpreter *old_perl = PL_curinterp;
    PL_curinterp = my_perl;
    perl_construct(my_perl);

    // 调用Perl代码
    char *args[] = {"", "-e", "print 'Hello, Perl from C++!';", NULL};
    int argc = sizeof(args) / sizeof(args[0]) - 1;
    perl_parse(my_perl, NULL, argc, args, NULL);
    PL_exit_flags |= PERL_EXIT_FLAG_WARN;
    perl_run(my_perl);

    // 销毁Perl解释器
    perl_destruct(my_perl);
    perl_free(my_perl);
    PL_curinterp = old_perl;

    return 0;
}