从 Java 运行 Perl 脚本（嵌入在 Perl 中）

Question

Perl 通过 STDIN 接受 scipt。按下 CTRL-D 后 perl 知道“脚本结束”。完成后，脚本被执行。

现在我的问题是：我想从 Java 中做到这一点。

1. 打开进程 Perl
2. 将脚本复制到 Perl 进程的 STDIN 中
3. 如何在不关闭流的情况下向 PERL CRTL-D 发出信号（来自 在java中）
4. 向脚本发送一些输入
5. 从脚本中获取一些输出。

---

proc = Runtime.getRuntime().exec("perl", env);
commandChannel = new BufferedWriter(new OutputStreamWriter(proc.getOutputStream()));
responseChannel = new BufferedReader(new InputStreamReader(proc.getInputStream()));
InputStreamReader mymacro = new InputStreamReader(getClass().getResourceAsStream("macro.perl"));

char[] b = new char[1024];
int read;

try
{
    while ((read = mymacro.read(b)) != -1)
    {
        commandChannel.write(b, 0, read);
    }
    commandChannel.flush();
    PERL IS WAITING FOR END OF SCRIPT; ??
}  ...

Answer 1

但这正是 CTRL-D 所做的：关闭进程的 STDIN。因此，在您的情况下，关闭 proc.getInputStream() 是在 shell 中模拟它时具有预期行为的适当操作。

如果你想做“其他事情”，那就去做吧。就像通过 STDIN 向您的脚本编写一个特殊命令，然后将其解释为这样并跳转到另一个状态或任何所需的状态

Answer 2

这个例子正是你需要的：

public class TestPl {
public static void main(String[] args) {
  Process proc;
  try {
     proc = Runtime.getRuntime().exec("perl");
     // a simple script that echos stdin.
     String script = "my $s=<>;\n" +
                     "print $s;";

     OutputStreamWriter wr = new OutputStreamWriter(proc.getOutputStream());

     //write the script:
     wr.write(script);

     //signal end of script:
     wr.write(4);
     wr.write("\n");

     //write the input:
     wr.write("bla bla bla!!!");

     wr.flush();
     wr.close();

     String output = readFromInputStream(proc.getInputStream());
     proc.waitFor(); 
     System.out.println("perl output:\n"+output);
  } catch (IOException e) {
     e.printStackTrace();
  } catch (InterruptedException e) {
     e.printStackTrace();
  }
}

public static String readFromInputStream(InputStream inputStream) throws IOException {
  BufferedReader br = new BufferedReader(new InputStreamReader(inputStream));
  String line;
  StringBuffer buff = new StringBuffer();
  while ((line=br.readLine())!=null){
     if (buff.length() > 0){
        buff.append("\n");
     }
     buff.append(line);
  }
  br.close();
  return buff.toString();
}

}