如何使用 Perl 将输入通过管道传输到 Java 应用程序?

Posted

技术标签:

【中文标题】如何使用 Perl 将输入通过管道传输到 Java 应用程序?【英文标题】:How can I pipe input to a Java app with Perl? 【发布时间】:2010-04-18 01:25:47 【问题描述】:

我需要编写一个 Perl 脚本,将输入通过管道传输到 Java 程序中。这与this 有关,但这对我没有帮助。我的问题是,在我关闭句柄之前,Java 应用程序不会获得打印语句。我在网上找到的是 $|需要设置为大于 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 存在是因为我在实际脚本中使用它。

【问题讨论】:

【参考方案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' );

此外,由于文件句柄是词法范围的,因此您不必手动关闭它。超出范围会自动关闭。

顺便说一句,除非您的目标是早于 5.6 的 perl,否则您可以使用 warnings pragma 而不是 -w。请参阅perllexwarn 了解更多信息。

【讨论】:

【参考方案2】:

$|=1 仅适用于当前选定的文件句柄(默认为 STDOUT)。要使您的 TP 文件句柄变热,您需要在打开它后执行此操作:

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

【讨论】:

以上是关于如何使用 Perl 将输入通过管道传输到 Java 应用程序?的主要内容,如果未能解决你的问题,请参考以下文章

如何以跨平台方式管道传输两个 Perl CORE::system 命令?

如何将 Python 的 cmd 类的输入/输出通过管道传输到另一个 Python 进程?

Linux:如何正确地将文本通过管道传输到程序中?

一些 GNUPlot 终端从命令行工作,但从 Perl 调用时不能(管道)

linux使用pactl将音频管道传输到虚拟麦克风

如何 grep/perl/awk 重叠正则表达式