python - perlから呼び出されているPythonから文字列を渡す方法は？

Question

perlコードがこのようなものだと仮定すると...

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

文字列をperlスクリプトに渡すことができるようにするには、Pythonで何をする必要がありますか？

単に文字列を返す必要がありますか？またはコンソールに印刷しますか？または、他の何か？

score 3 · Accepted Answer

コンソールに印刷して、Perlで使用することもできます。

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

score 1 · Accepted Answer

このsystemコマンドは、Perlではコマンドの出力をキャプチャするのに役立ちません。バッククォートを使用してコマンドを実行し、Pythonスクリプトでstdoutに書き込む必要があります。

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

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

詳細については、以下のリンクされたソースを参照してください。

score 1 · Accepted Answer

最も簡単な方法は、次のようにバッククォート（``）を使用することです。

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

同義のアプローチには、が含まれqx//ます。

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ドキュメントの「SafePipeOpens 」セクションで概説されているように、コマンドを引数に分割することでシェルをバイパスできます。

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

出力：

バックティック：
Pythonプログラム：Example.py
引数：pname-value.txt

パイプ：
Perlが取得：Pythonプログラム：Example.py
Perlが取得しました：引数：pname-value.txt

3 に答える 3