以交互方式从 java 代码调用 perl 脚本

Question

有人可以在下面的场景中帮助我吗，

我需要从我的 java 代码调用 perl 脚本。 perl脚本是一个交互式代码，它在执行过程中获取用户的输入并继续执行直至结束。因此，我使用的示例是，当用户输入某个值（例如“26”）时，perl 脚本在执行时会通过在控制台中打印“你多大了？”来询问年龄。然后它会打印“哇！你已经 26 岁了！”。

当我尝试从 java 代码调用此脚本时，该过程会等待，直到我在输出流中给出值 26，而在输入流中没有值。最后，当我再次读取输入流时，我得到了脚本的整个输出。那么，这里我不能让它互动吗？

我浏览了很多论坛和博客，但找不到任何一个完全符合我的要求。

这是java代码

import java.io.*;

public class InvokePerlScript {

    /**
     * @param args
     */
    public static void main(String[] args) {
        // TODO Auto-generated method stub
        Process process;

        try
        {
        process = Runtime.getRuntime().exec("cmd /c perl D:\\sudarsan\\eclips~1\\FirstProject\\Command.pl");

              try {
            BufferedReader in = new BufferedReader(new InputStreamReader(process.getInputStream()));
            String line = null;
            while ((line = in.readLine()) != null) {
                System.out.println(line);
             }
                } catch (IOException e) {
          e.printStackTrace();
                 }

        try {
            BufferedWriter out = new BufferedWriter(new OutputStreamWriter(process.getOutputStream()));
            out.write("23");
            out.flush();
            out.close();
        } catch (IOException e) {
            e.printStackTrace();
        }

            process.waitFor();
        if(process.exitValue() == 0)
        {
        System.out.println("Command Successful");
            try {
                BufferedReader in = new BufferedReader(new InputStreamReader(process.getInputStream()));
                String line = null;
                while ((line = in.readLine()) != null) {
                System.out.println(line);
                }
            } catch (IOException e) {
                e.printStackTrace();
            }
        }
        else
        {
        System.out.println("Command Failure");
            try {
                BufferedReader in = new BufferedReader(new InputStreamReader(process.getErrorStream()));
                String line = null;
                while ((line = in.readLine()) != null) {
                System.out.println(line);
                }
            } catch (IOException e) {
                e.printStackTrace();
            }
        }
        }
        catch(Exception e)
        {
        System.out.println("Exception: "+ e.toString());
        }
    }

}

Perl代码如下

$| = 1;
print "How old are you? \n";
$age = <>;
print "WOW! You are $age years old!";

提前致谢， 苏达桑

Answer 1

在写入值后，您是否在 Java 中的 OutputStream 上调用 flush() ？如果不这样做，它们很可能只是保存在 Java 进程内的流缓冲区中，因此永远不会到达 Perl（结果是两个进程最终都会等待对方的 IO。）

（取决于在流的实现上，这可能是必要的，也可能不是必要的，但它肯定不会有什么坏处——而且我过去也曾被这个问题困扰过，通常不需要那么小心，因为刷新是隐式发生的。 close() 被调用，但在这里你不能在写完后关闭流。）

Answer 2

看起来您正在尝试读取此代码中的整行：

        BufferedReader in = new BufferedReader(new InputStreamReader(process.getInputStream()));
        String line = null;
        while ((line = in.readLine()) != null) {
           ...

但是，在您的 perl 代码中，您没有打印结束行字符，因此 readLine 永远不会返回（根据 文档）。