我可以在Perl的反引號中執行多行命令嗎？

Question

在Unix中，我有一個要使用nohup運行的進程。 但是，此過程有時會在提示下等待，我必須輸入yes或no才能繼續。 到目前為止，在Unix中，我一直在進行以下操作

nohup myprocess <<EOF
y
EOF

因此，我使用nohup啟動進程“ myprocess”，並使用“ y”將其管道化，然后關閉該文件。 上面的行實際上是三個單獨的命令-即我在UNIX的第一行中按回車，然后出現提示，我在其中輸入'y'，然后按Enter以最后鍵入'EOF'，然后再次按回車鍵。

我想知道在Perl中執行此命令，但是由於三行以上，因此我不確定如何執行此命令。 我不知道下面的方法是否可以...

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

請幫助-謝謝！

Answer 1

我認為您的建議將照常進行。 如果不是，請嘗試使用管道替換重定向：

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

另外，根據您要進行nohup ，請使用Proc::Daemon查看以下純Perl Proc::Daemon ： 如何在Linux中將Perl腳本作為系統守護進程運行？

Answer 2

也可以使用交互式程序的期望 。