perl - Perl のバッククォートで複数行のコマンドを実行できますか?

Question

Unix では、nohup を使用して実行したいプロセスがあります。ただし、このプロセスは、ある時点で、入力する必要があるyesかno、続行する必要があるプロンプトで待機します。これまでのところ、Unixでは次のことを行ってきました

nohup myprocess <<EOF
y
EOF

したがって、nohup を使用してプロセス「myprocess」を開始し、「y」を使用してファイルにパイプし、ファイルを閉じます。上記の行は事実上 3 つの別個のコマンドです。つまり、UNIX の最初の行で Enter キーを押すと、プロンプトが表示され、「y」と入力してから Enter キーを押し、最後に「EOF」と入力して、もう一度 Return キーを押します。

これを Perl で実行する方法を知りたいのですが、このコマンドは 3 行を超えるため、どのように実行できるかわかりません。以下がうまくいくかどうかはわかりません....

my $startprocess = `nohup myprocess <<EOF &
y
EOF
`

助けてください - ありがとう！

Answer 1

あなたの提案はそのまま機能すると思います。そうでない場合は、リダイレクトをパイプに置き換えてみてください。

my $startprocess = `(echo "y" | nohup myprocess) &`;

また、 を実行している理由に応じてnohup、次の純粋な Perl デーモン化アプローチを参照してくださいProc::Daemon。Linux で Perl スクリプトをシステム デーモンとして実行するにはどうすればよいですか

Answer 2

インタラクティブなプログラムも同様に使用できます。