python - 为什么打印的 Inline::Python 函数重定向失败？

Question

这是我的问题的最简单的可重现性:

#!/usr/bin/env perl
use 5.16.3;
say "Got back ", test_print();
use Inline Python => <<'END_OF_PYTHON_CODE';
def test_print() -> int:
    print("In the python test print")
    return 32
END_OF_PYTHON_CODE

简单运行时:

$ perl small.pl
In the python test print
Got back 32

但是当重定向时:

$ perl small.pl | tee foo
Got back 32
$ cat foo
Got back 32

我可能做错了什么 Inline::Python代码无法打印到重定向输出？

Answer 1

Py_Finalize()不会调用以正确破坏 Python 解释器。
幸运的是，该模块将此函数公开为 py_finalize ，允许我们自己调用它。将以下内容添加到您的程序中:

END { Inline::Python::py_finalize(); }

演示:

use feature qw( say );

use Inline Python => <<'END_OF_PYTHON_CODE';

def test_print() -> int:
    print("In the python test print")
    return 32

END_OF_PYTHON_CODE

END { Inline::Python::py_finalize() if $ARGV[0]; }

say "Got back ", test_print();

$ perl a.pl 0
In the python test print
Got back 32

$ perl a.pl 0 | cat
Got back 32

$ perl a.pl 1
In the python test print
Got back 32

$ perl a.pl 1 | cat
In the python test print
Got back 32