Perl向Python传递数组并获取返回值问题求助

首先咱们先搞定你遇到的核心问题：Perl里直接把数组变量塞进命令字符串时，会输出数组引用的标识（比如ARRAY(0x873b58)），这不仅传不了实际数据，还会因为括号触发shell语法错误。另外我也会帮你处理Python脚本返回值的捕获需求。

一、修复Perl中的数组传递逻辑 #

Perl的二维数组本质是“数组的数组”，直接把@D1插入字符串只会打印每个子数组的内存引用地址。你需要把二维数组里的所有元素扁平化展开，同时为了避免shell解析出错，要对每个元素做转义处理。

方法1：手动展开并转义元素 #

修改Perl脚本的命令生成部分：

use strict;
use warnings;

# 示例二维数组数据
my @D1 = ([1.2, 3.4], [5.6, 7.8]);
my @D2 = ([9.0, 1.1], [2.2, 3.3]);

# 把二维数组扁平化，同时转义特殊字符（比如空格、引号）
my @flat_d1 = map { quotemeta($_) } map { @$_ } @D1;
my @flat_d2 = map { quotemeta($_) } map { @$_ } @D2;

# 拼接成合法的命令字符串
my $cmd = "plotanalysis -d1 @flat_d1 -d2 @flat_d2";
print STDERR "***Info : plotanalysis command $cmd\n";

# 执行命令并检查状态
my $exit_status = system($cmd);
if ($exit_status != 0) {
    # system返回的是进程状态包，右移8位得到实际退出码
    my $actual_exit = $exit_status >> 8;
    print STDERR "plotanalysis failed, exit code: $actual_exit\n";
}

• map { @$_ } @D1：把二维数组展开成一维数组，取出所有实际元素
• quotemeta($_)：转义元素中的特殊字符，避免shell解析时出错

方法2：用String::ShellQuote生成安全命令 #

如果你的数据包含复杂特殊字符（比如空格、括号），推荐用CPAN的String::ShellQuote模块，它能更可靠地生成shell可解析的命令：

use strict;
use warnings;
use String::ShellQuote qw(shell_quote);

my @D1 = ([1.2, 3.4], [5.6, 7.8]);
my @D2 = ([9.0, 1.1], [2.2, 3.3]);

my @flat_d1 = map { @$_ } @D1;
my @flat_d2 = map { @$_ } @D2;

# 生成安全的命令字符串
my $cmd = shell_quote('plotanalysis', '-d1', @flat_d1, '-d2', @flat_d2);
print STDERR "***Info : plotanalysis command $cmd\n";

my $exit_status = system($cmd);
if ($exit_status != 0) {
    my $actual_exit = $exit_status >> 8;
    print STDERR "plotanalysis failed, exit code: $actual_exit\n";
}

二、捕获Python脚本的返回值与输出 #

1. 获取退出状态码 #

Perl的system函数返回的是进程的状态信息，你需要将返回值右移8位（$exit_status >> 8），才能得到Python脚本实际的退出码（对应Python里sys.exit()传入的数值）。

2. 捕获Python的标准输出/错误 #

如果需要获取Python脚本打印的内容（比如print(args)的输出），可以用以下两种方式：

用qx//捕获标准输出（错误输出会流向Perl的STDERR）

my $output = qx(plotanalysis -d1 @flat_d1 -d2 @flat_d2);
my $exit_status = $?; # 获取进程退出状态
my $actual_exit = $exit_status >> 8;

print "Python output: $output\n";
if ($actual_exit != 0) {
    print STDERR "plotanalysis failed with exit code: $actual_exit\n";
}

用IPC::Open3同时捕获stdout和stderr

如果需要同时捕获标准输出和错误输出，推荐用IPC::Open3模块：

use strict;
use warnings;
use IPC::Open3;
use Symbol 'gensym';

my @flat_d1 = map { @$_ } @D1;
my @flat_d2 = map { @$_ } @D2;

# 打开管道连接Python进程的输入、输出、错误流
my ($wtr, $rdr, $err);
$err = gensym; # 处理未定义的错误流
my $pid = open3($wtr, $rdr, $err, 'plotanalysis', '-d1', @flat_d1, '-d2', @flat_d2);

# 读取输出内容
my $stdout = do { local $/; <$rdr> };
my $stderr = do { local $/; <$err> };

# 等待进程结束并获取退出码
waitpid($pid, 0);
my $actual_exit = $? >> 8;

print "Python stdout: $stdout\n";
print "Python stderr: $stderr\n";
if ($actual_exit != 0) {
    print STDERR "plotanalysis failed with exit code: $actual_exit\n";
}

三、Python脚本的小优化 #

你的Python脚本里main函数默认返回None，sys.exit(main(...))会把None转为0退出码，建议给main加上明确的返回值，方便Perl判断执行结果：

def main(args):
    """Invoke main functionality"""
    print(args)
    # 执行逻辑后，返回0表示成功，非0表示失败
    return 0

if __name__ == "__main__":
    import sys
    sys.exit(main(parse_args(sys.argv[1:])))

内容的提问来源于stack exchange，提问作者user765443