如何在Perl主脚本与子脚本间传递数组返回值

好问题！咱们来拆解一下你的问题，一步步找到解决方案：

要不要把$result改成数组变量？ #

其实不需要直接改成数组。反引号操作符返回的是子进程输出的全部内容（作为字符串），哪怕你用数组变量接收，它也只是把输出按换行符拆分成数组元素——但Data::Dumper输出的数组格式并不是每行对应一个数组元素，所以这种方式根本没法直接拿到可用的数组数据。

核心问题在于：你现在用Data::Dumper输出的是给人类阅读的Perl代码，而不是适合程序解析的结构化数据。要让主脚本正确捕获数组，得换一种机器友好的序列化格式。

具体解决方案 #

下面推荐几种可靠的方法，按易用性和安全性排序：

方法1：用Perl原生的Storable模块（最推荐） #

Storable是Perl核心模块（不需要额外安装），专门用来序列化/反序列化Perl数据结构，速度快且兼容性好。

修改secondary_script.pl：

#!/usr/bin/perl
use strict;
use warnings;
use Storable qw(nstore_fd); # 引入序列化函数

my $arg1 = $ARGV[0];
my $arg2 = $ARGV[1];

# 生成数组@data的逻辑不变
my @data = ("foo", "bar", $arg1, $arg2); # 示例数据

# 将数组序列化后输出到标准输出
nstore_fd(\@data, \*STDOUT);

修改main_script.pl：

#!/usr/bin/perl
use strict;
use warnings;
use Storable qw(retrieve_fd); # 引入反序列化函数

my $var1 = "val_1";
my $var2 = "val_2";
my $sec_script = "/home/shared/Vinod/Perl_Test/secondary_script.pl";

# 用管道打开子脚本（比反引号更灵活，也能处理大输出）
open my $child_fh, '-|', 'perl', $sec_script, $var1, $var2 
    or die "Failed to run secondary script: $!";

# 反序列化得到数组引用，再转成数组
my $data_ref = retrieve_fd($child_fh);
my @result = @$data_ref;

close $child_fh;

# 测试输出
print "Result elements:\n";
print "- $_\n" for @result;

方法2：用JSON格式（跨语言友好） #

如果你需要和其他语言交互，JSON是更好的选择，需要安装JSON模块（执行cpan install JSON即可安装）。

修改secondary_script.pl：

#!/usr/bin/perl
use strict;
use warnings;
use JSON qw(encode_json);

my $arg1 = $ARGV[0];
my $arg2 = $ARGV[1];

my @data = ("foo", "bar", $arg1, $arg2); # 示例数据

# 将数组转成JSON字符串输出
print encode_json(\@data);

修改main_script.pl：

#!/usr/bin/perl
use strict;
use warnings;
use JSON qw(decode_json);

my $var1 = "val_1";
my $var2 = "val_2";
my $sec_script = "/home/shared/Vinod/Perl_Test/secondary_script.pl";

# 用反引号获取JSON字符串
my $json_str = `perl $sec_script $var1 $var2`;
# 反序列化得到数组引用，转成数组
my $data_ref = decode_json($json_str);
my @result = @$data_ref;

# 测试输出
print "Result elements:\n";
print "- $_\n" for @result;

方法3：不推荐的eval解析Data::Dumper输出 #

如果你坚持要用Data::Dumper，可以在主脚本里通过eval执行输出的Perl代码，但非常不安全——如果子脚本的输出被篡改，可能会执行恶意代码，仅作演示：

修改main_script.pl：

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $var1 = "val_1";
my $var2 = "val_2";
my $sec_script = "/home/shared/Vinod/Perl_Test/secondary_script.pl";

my $result_str = `perl $sec_script $var1 $var2`;
# 解析Dumper输出，得到数组引用
my $data_ref = eval $result_str;
die "Eval failed: $@" if $@;
my @result = @$data_ref;

print "Result elements:\n";
print "- $_\n" for @result;

总结 #

• 不需要把$result改成数组变量，关键是让子脚本输出机器可解析的序列化数据；
• 优先选择Storable（Perl原生）或JSON（跨语言）的方案，避免用eval解析Data::Dumper的输出。

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