从 C++ 中确定 perl 文件的行号和文件名

Question

我正在将 Perl 嵌入到我们的应用程序中。我们已经安装了很多从 Perl 内部调用的 C++ 函数。其中之一是日志记录功能。我想将调用此函数的 Perl 文件的文件名和行号添加到日志消息中。
我知道在 Perl 端我可以使用“caller()”函数来获取此信息，但此函数已经在数百个位置使用，所以我更愿意修改 C++ 端，将此信息传递给 C++ XSUB功能，如果是的话我该如何获得它？

谢谢。

Answer 1

这应该有效：

char *file;
I32 line;

file = OutCopFILE(PL_curcop);
line = CopLINE(PL_curcop);

控制操作（cops）是两个操作OP_NEXTSTATE和op_DBSTATE之一，
（宽松地说）是单独的陈述。
它们保存对词汇状态和错误报告很重要的信息。
在运行时，PL_curcop被设置为指向最近执行的cop，
因此可以用来确定我们当前的状态。

— 警察.h

Answer 2

你不能从 XS 调用 perl 内置函数吗？我承认我不知道。

如果没有，您总是可以这样做：

sub logger { _real_logger(caller, @_) }

假设您的函数被称为 logger（并且您将 C++ XS 函数重命名为 _real_logger ）。您也可以这样做，据推测，如果您需要将自己隐藏在调用树中：

sub logger {
    unshift @_, caller;
    goto &_real_logger;
}

这当然是 AUTOLOAD 中使用的 goto 的正常形式，

当然，这些会增加开销，但对于日志记录来说可能不是什么大问题。功能。