python - 内联 Python 支持从 perl 传递文件句柄

Question

在尝试将内联 python 作为从 perl 到 python 的接口(interface)时，我面临以下问题。这是代码，其中 fun 是 python 内部的子例程，我尝试从 perl 调用它

测试.pl:

use Inline Python => <<END;

def fun(fh):
    print(fh)
END

my $FH;
open($FH, ">", '/tmp/x.cth');
print $FH "hello\n";
fun($FH);

当我执行 test.pl 时，它打印“None”，并且无法将 FileHandle 传递给 python 代码。或者将 None 传递给 python。有什么建议如何解决这个问题吗？

Answer 1

您无法将 Perl 文件句柄传递给 Python。但你可以尝试通过 file descriptor :

use feature qw(say);
use strict;
use warnings;
use Inline Python => <<END;
import os
def fun(fd):
    with os.fdopen(int(fd), 'a') as file:
        file.write("Hello from Python")
END

my $fn = 't.txt';
open (my $fh, ">", $fn) or die "Could not open file '$fn': $!";
say $fh "hello";
$fh->flush();
fun(fileno($fh));
close $fh

运行脚本后t.txt内容为:

$ cat t.txt
hello
Hello from Python