在perl中运行python脚本

Question

我有两个脚本，一个python脚本和一个perl脚本。

如何让perl脚本运行python脚本然后自行运行？

Answer 1

像这样的东西应该工作：

system("python", "/my/script.py") == 0 or die "Python script returned error $?"; 

如果您需要捕获的Python脚本的输出：

open(my $py, "|-", "python2 /my/script.py") or die "Cannot run Python script: $!"; 
while (<$py>) { 
    # do something with the input 
} 
close($py); 

，如果你想为子进程提供输入这也适用同样。

Answer 2

这可能是简单的运行从shell脚本这两个脚本，并使用管道（假设你在Unix环境中是）如果你需要从一个程序的结果传递给其他

Answer 3

最好方法是使用IPC :: Open3在系统级执行python脚本。与使用system（）相比，这会使代码更安全，更易读。

您可以轻松地执行系统命令，读取和写入他们与IPC :: Open3像这样：

use strict; 
use IPC::Open3(); 
use IO::Handle(); #not required but good for portabilty 

my $write_handle = IO::Handle->new(); 
my $read_handle = IO::Handle->new(); 
my $pid = IPC::Open3::open3($write_handle, $read_handle, '>&STDERR', $python_binary. ' ' . $python_file_path); 
if(!$pid){ function_that_records_errors("Error"); } 
#read multi-line data from process: 
local $/; 
my $read_data = readline($read_handle); 
#write to python process 
print $write_handle 'Something to write to python process'; 
waitpid($pid, 0); #wait for child process to close before continuing 

这将创建一个派生进程来运行Python代码。这意味着如果python代码失败，您可以恢复并继续执行您的程序。