java - 将 Java STDOUT 流式传输到 perl STDOUT

Question

我正在从 perl 运行一个 java 应用程序

这是脚本

#!/usr/bin/perl
use strict;
use warnings;

$| = 1;

my $args = join (" " , @ARGV);

my $command = "/usr/java/jdk6/bin/java -jar  runner-0.0.1-SNAPSHOT.jar $args";
print "Executing $command\n";
print "Please wait...\n";

print `$command`;

如果在外部运行命令，即 bash，Java 应用程序会在控制台 [STDOUT] 中写入调试信息，但是当我从 perl 调用时，它会缓冲调试消息并仅在 java 应用程序完成时打印。

从 perl 调用时如何流式传输调试消息？

我禁用了控制台缓冲区 $| = 1 但还是一样

Answer 1

将其作为文件句柄打开，并以通常的方式从中读取。

#!/usr/bin/env perl
use strict;  
use warnings;

$| = 1;

my $command = "/usr/java/jdk6/bin/java -jar  runner-0.0.1-SNAPSHOT.jar @ARGV";
open ( my $java_output, '|-', $command ); 

while ( my $line = <$java_output> ) {
    print $line; 
}
close ( $java_output ); 

如果您也想对输出数据进行非阻塞读取，您可能会发现 IO::Select 很有用。