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

Question

有人可以在以下情况下帮助我吗，

我需要从我的 java 代码中调用 perl 脚本。 perl 脚本是一个交互式代码，它在执行过程中从用户那里获取输入并继续到结束。因此，我使用的示例是，执行时的 perl 脚本通过在控制台中打印“你多大了？”来询问年龄，当用户输入一些值说“26”时。然后它会打印“哇！你已经 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 永远不会返回（根据 documentation）。