如何從python調用perl傳遞字符串？

Question

假設Perl代碼是這樣的......

open(STDOUT, ">$PName") || die "Can't redirect stdout"; 
$status = system("python Example.py $PName.txt"); 

（即從http://www.linuxquestions.org/questions/programming-9/perl-script-call-python-linux-551063/拍攝）

什麼我有蟒蛇做能夠將字符串傳遞給perl腳本？

我需要簡單地返回字符串嗎？或打印到控制檯？或者是其他東西？

Answer 1

的system命令是沒有用Perl中用於捕獲命令的輸出。您應該使用反引號來執行命令並將其寫入Python腳本中的stdout。

#-- returns one string 
$result = `command arg1 arg2`; 

#-- returns a list of strings 
@result = `command arg2 arg2`; 

請參閱下面的鏈接源以獲取更多信息。

來源：executing external commands in Perl

Answer 2

你可以只打印到控制檯，並在Perl使用：

my $from_py = `python foo.py bar`; 

Answer 3

最簡單的方法是在

my $output = `python Example.py $PName.txt`; 
print "Backticks:\n", $output; 

同義方法涉及qx//使用backticks (``)作爲。

my $output = qx/python Example.py $PName.txt/; 
print "Backticks:\n", $output; 

要讀取每一行，請從Python子流程中打開管道。

print "Pipe:\n"; 
open my $fh, "python Example.py $PName.txt |"; 
while (<$fh>) { 
    print "Perl got: ", $_; 
} 
close $fh or warn "$0: close: $!"; 

正如perlipc文檔的「Safe Pipe Opens」 section概述，您可以通過拆分命令進入參數繞過外殼。

open my $fh, "-|", "python", "Example.py", "$PName.txt"; 

輸出：

Backticks: 
Python program: Example.py 
Argument:  pname-value.txt 

Pipe: 
Perl got: Python program: Example.py 
Perl got: Argument:  pname-value.txt