perl - 如何在 Perl XS 代码中使用伪文件句柄？

Question

我正在尝试为能够使用任何提供write(ctx, buffer, count)/read(ctx, buffer, count)接口的序列化/反序列化库编写 XS 胶水代码。我希望能够使用我得到的伪文件句柄

open $reader, '<', \$in;
open $writer, '>', \$out;

所以使用FILE*映射似乎不起作用。由于我没有找到任何好的文档，所以我四处寻找并得到了以下 XS 片段：

void
write_buf (fh, string);
INPUT:
PerlIO* fh;
SV* string;
CODE:
STRLEN length = SvLEN (string);
char* buf = SvPV (string, length);
PerlIO_write (fh, buf, length);

它似乎做了我想要的，但这是处理 Perl 可能认为 XS 代码中的文件句柄的所有内容的正确方法吗？

Answer 1

你有你需要的。使用的函数PerlIO*确实会处理所有作为 Perl 程序的文件句柄出现的东西。