在C++程序中嵌入Perl解释器：脚本运行与参数传递问询

没问题，你的需求完全可以实现！我来结合你的代码一步步拆解解决方案：

一、关于运行任意Perl字符串 #

当然可以！你已经用到的eval_pv函数就是干这个的——它能直接在初始化好的Perl解释器里执行任意合法的Perl代码字符串。不过有两个小细节要注意：

• 代码字符串的语法必须合法，比如你最初用\\n转义换行符容易出错，后来改用Raw字符串字面量（R"x(...)"x"）就很聪明，这样写出来的Perl代码和直接写.pl文件里的一模一样，可读性拉满。
• 一定要确保Perl解释器的初始化流程完整：PERL_SYS_INIT3 → perl_alloc → perl_construct → perl_parse → perl_run，少了任何一步eval_pv都没法正常工作，你最终代码里的流程就很标准。

二、向脚本传递两个字符串参数的正确姿势 #

你最终代码里用的方法已经非常优雅了——预定义Perl子例程，再用call_argv传递参数，比直接硬编码$ARGV[0]灵活太多，尤其是需要多次调用的场景。具体逻辑是：

1. 提前定义Perl子例程：在解释器初始化阶段，用eval_pv执行一段定义transfer子例程的代码，这个子例程通过$_[0]和$_[1]接收外部传入的两个参数（源文件路径和目标文件路径），然后完成Exif标签转移的逻辑。
2. 用call_argv传递参数：在transferExifTags函数里，把C++的std::string转换成C风格字符串，放到以NULL结尾的数组里，然后调用call_argv("transfer", G_DISCARD, args)。这里G_DISCARD表示忽略子例程的返回值，如果需要获取执行结果，可以换成G_SCALAR（获取标量返回值）或者其他合适的标志。

聊聊你代码里的关键优化 #

对比初始代码，你最终的实现做了几个非常棒的改进：

• 单例模式管理解释器：通过PerlScriptRunner的单例，确保整个程序生命周期里只初始化一次Perl解释器，避免反复创建销毁带来的性能开销，这在频繁调用transferExifTags的场景下特别有用。
• 解决Debian编译问题：加上PERL_NO_GET_CONTEXT和dTHX宏，完全符合Perl底层规范，完美解决了Debian上的编译报错。
• 代码可读性提升：用Raw字符串字面量写Perl代码，不用再处理烦人的转义字符，维护起来轻松多了。

补充几个小提示 #

• 如果你偶尔需要用$ARGV数组传参，也可以在初始化解释器时修改embedding数组，把参数加进去，但这种方式适合一次性执行的脚本，不如子例程的方式灵活。
• 确保系统里已经安装了Perl的Image::ExifTool模块，不然解释器会报错找不到模块，可以用cpan Image::ExifTool命令安装。
• 如果你的文件路径包含非ASCII字符，记得处理Perl的编码设置，避免出现乱码问题。

附上你的最终实现代码：

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <cassert>
#include <string>

class PerlInterp {
public:
    PerlInterp() : perlInterp(nullptr) {
        dTHX;
        std::string script {R"x( use Image::ExifTool qw(ImageInfo); use strict; use warnings; sub transfer { my $srcFile = $_[0]; my $outFile = $_[1]; my $exifTool = new Image::ExifTool; my $info = $exifTool->SetNewValuesFromFile($srcFile, 'all:all'); my $result = $exifTool->WriteInfo($outFile); } )x"};
        constexpr int NUM_ARGS = 3;
        const char* embedding[NUM_ARGS] = { "", "-e", "0" };
        PERL_SYS_INIT3(NULL,NULL,NULL);
        perlInterp = perl_alloc();
        perl_construct( perlInterp );
        int res = perl_parse(perlInterp, NULL, NUM_ARGS, (char**)embedding, NULL);
        assert(!res);
        (void)res;
        perl_run(perlInterp);
        eval_pv(script.c_str(), TRUE);
    }
    ~PerlInterp(){
        dTHX;
        perl_destruct(perlInterp);
        perl_free(perlInterp);
        PERL_SYS_TERM();
    }
    PerlInterpreter *perlInterp;
};

class PerlScriptRunner{
public:
    static PerlInterp *instance(void){
        static PerlInterp interp;
        return &interp;
    }
};

void transferExifTags(std::string src, std::string dest){
    dTHX;
    PerlScriptRunner::instance();
    char *args[] = {(char*)src.c_str(), (char*)dest.c_str(), NULL};
    call_argv("transfer", G_DISCARD, args);
}

内容的提问来源于stack exchange，提问作者Jacko