Question

我需要编写一个将输入传递给Java程序的Perl脚本。这与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就在那里，因为我在真实的脚本中使用它。

Answer 1

我变得非常喜欢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。

Answer 2

$ | = 1仅适用于当前选定的文件句柄（默认情况下为STDOUT）。要使TP文件处理热，您需要在打开它之后执行此操作：

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

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

2 个答案: