在Perl中调用命令行函数并获得输出为字符串

Question

在Perl中执行命令行函数的最佳/最简单的方法是什么，以便我可以将输出作为字符串获取？

什么实际上，我试图做的是从PostgreSQL中PL/Perl函数中调用Java程序，我想输出字符串，但目前它似乎只是返回0。

下面是一段简单的代码来解释我后面的内容：

CREATE OR REPLACE FUNCTION perl_func() 
    RETURNS character varying AS 
$BODY$  
    return system("java -version"); 
$BODY$ 
    LANGUAGE plperlu VOLATILE 
    COST 100; 

Answer 1

您可以使用反引号。从perldoc perlop报价：

*qx/STRING/

*`STRING`

A string which is (possibly) interpolated and then executed as a system command with /bin/sh or its equivalent. Shell wildcards, pipes, and redirections will be honored. The collected standard output of the command is returned; standard error is unaffected. In scalar context, it comes back as a single (potentially multi-line) string, or undef if the command failed. In list context, returns a list of lines (however you've defined lines with $/ or $INPUT_RECORD_SEPARATOR), or an empty list if the command failed.

不能使用system对于这一点，因为它只是返回的参数（当作为shell命令运行）的返回值。这应该工作：

CREATE OR REPLACE FUNCTION perl_func() 
    RETURNS character varying AS 
$BODY$ 
    my $output=`java -version`; 
    chomp($output); 
    return $output; 
$BODY$ 
    LANGUAGE plperlu VOLATILE 
    COST 100; 

注意，一个backticked命令的输出通常包括结尾的新行，所以这是可以得到通过chomp摆脱这一点。