如何使用Perl将输入通过管道传递到Java应用程序？
如何使用Perl将输入通过管道传递到Java应用程序？
提问于 2010-04-18 09:25:47
我需要编写一个Perl脚本，通过管道将输入输入到Java程序中。这与this有关，但这对我没有帮助。我的问题是，在我关闭句柄之前，Java应用程序不会得到print语句。我在网上发现，$|需要设置为大于0的值，在这种情况下，换行符将刷新缓冲区。这仍然不起作用。
脚本是这样的：
#! /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脚本中的close语句才响应。我做错了什么？
注意:修复只能在Perl脚本中进行。Java应用程序不能更改。此外，File::Basename也在那里，因为我在实际脚本中使用它。
回答 2
Stack Overflow用户
回答已采纳
发布于 2010-04-18 09:34:11
$|=1仅适用于当前选定的文件句柄(默认情况下为STDOUT)。要使您的TP文件处理热，您需要在打开它后执行以下操作：
select(TP);
$| = 1;
select(STDOUT);Stack Overflow用户
发布于 2010-04-18 10:27:48
我变得相当喜欢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' );此外，因为文件句柄是词法作用域，所以不必手动关闭它。它会在超出范围时自动关闭。
顺便说一句，除非您的目标是早于5.6的perl，否则可以使用warnings杂注而不是-w。有关详细信息，请参阅perllexwarn。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/2660739
复制相关文章
相似问题
腾讯云开发者
