如何使用Perl将输入输入到Java应用程序？

问题描述：

我需要编写一个将脚本输入到Java程序中的Perl脚本。这与this有关，但这并没有帮助我。我的问题是，Java应用程序没有得到打印语句，直到我关闭句柄。我在网上找到的是$ |需要设置为大于0的值，在这种情况下，换行符将刷新缓冲区。这仍然不起作用。如何使用Perl将输入输入到Java应用程序？

这是脚本：

#! /usr/bin/perl -w 

use strict; 
use File::Basename; 

$|=1; 

open(TP, "| java -jar test.jar") or die "fail"; 
sleep(2); 

print TP "this is test 1\n"; 
print TP "this is test 2\n"; 
print "tests printed, waiting 5s\n"; 
sleep(5); 

print "wait over. closing handle...\n"; 
close TP; 
print "closed.\n"; 

print "sleeping for 5s...\n"; 
sleep(5); 
print "script finished!\n"; 
exit

这里是一个样本Java应用程序：

import java.util.Scanner; 

public class test{ 

    public static void main(String[] args){ 

     Scanner sc = new Scanner(System.in); 
     int crashcount = 0; 
     while(true){ 
      try{ 
       String input = sc.nextLine(); 
       System.out.println(":: INPUT: " + input); 
       if("bananas".equals(input)){ 
        break; 
       } 
      } catch(Exception e){ 
       System.out.println(":: EXCEPTION: " + e.toString()); 
       crashcount++; 
       if(crashcount == 5){ 
        System.out.println(":: Looks like stdin is broke"); 
        break; 
       } 
      } 
     } 
     System.out.println(":: IT'S OVER!"); 
     return; 
    } 

}

的Java应用程序应该立即接受测试打印响应，但它没有，直到在Perl脚本中关闭语句。我究竟做错了什么？

注意：修复程序只能在Perl脚本中。 Java应用程序无法更改。此外，File :: Basename在那里，因为我在真实脚本中使用它。

答

$ | = 1仅适用于当前选定的文件句柄（默认为标准输出）。为了使您的TP文件处理热，你需要打开它后，要做到这一点：

select(TP); 
$| = 1; 
select(STDOUT);

你赢了 - 谢谢你！ – 2010-04-18 03:08:54

答

我已经长大了，而喜欢的IO::Handle衍生模块。它们可以轻松控制刷新，读取数据，二进制模式以及句柄的许多其他方面。我们使用IO::File。

use IO::File; 

my $tp = IO::File->new("| java -jar test.jar") 
    or die "fail - $!"; 

# Manual print and flush 
$tp->print('I am fond of cake'); 
$tp->flush; 

# print and flush in one method 
$tp->printflush('I like pie'); 

# Set autoflush ON 
$tp->autoflush(1); 
$tp->print('I still like pie');

此外，由于文件句柄词法范围，您不必手动关闭它。它会在超出范围时自动关闭。

顺便说一句，除非你的目标是一个perl旧的5.6，你可以使用warnings编译指示，而不是-w。有关更多信息，请参阅perllexwarn。

如何使用Perl将输入输入到Java应用程序？

相关推荐