perl - 将二维数组从一个 Perl 脚本传递到另一个

Question

我有一个名为 master.pl 的 Perl 脚本。我有一个名为 @inputarray 的二维数组。

我需要将二维数组值从 master.pl 传递到另一个名为 child.pl 的程序并访问 child.pl .

我已经尝试了很多，但我无法取消引用 child.pl 中的数组。

你能帮帮我吗？

ma​​ster.pl

system "start perl child.pl $appl $count @inputarray";

child.pl

($appl, $count, @inputarray) = @ARGV;

for (my $k = 0; $k < $count + 1; $k++) {
    for (my $m = 0; $m < 6; $m++) {
        print "$inputarray[$k][$m] ";
    }
    print "\n";
}

Answer 1

方法一:

看看标准模块Data::Dumper , 它是您想要的理想选择。

使用 Data::Dumper 将您的数据结构保存在一个临时文件中，然后在您的第二个脚本中读取它。

方法二:

使用 Storable在第一个脚本中存储数组并从其他脚本中检索它。

编辑(在您提供代码之后):

看到你可以像这样访问数组

ma​​ster.pl

#!/usr/local/bin/perl
use strict;
use warnings;
use Storable;
my @inputarray = ([1, 2, 3], [4, 5, 6], [7, 8, 9]);
store (\@inputarray, "/home/chankey/child.$$") or die "could not store";
system("perl", "child.pl", $$) == 0 or die "error";

child.pl

#/usr/local/bin/perl
use strict;
use warnings;
use Storable;
use Data::Dumper;
my $parentpid = shift;
my $ref = retrieve("/home/chankey/child.$parentpid") or die "coudn't retrieve";
print Dumper $ref;
print $$ref[0][0]; #prints 1

输出

$VAR1 = [
          [
            1,
            2,
            3
          ],
          [
            4,
            5,
            6
          ],
          [
            7,
            8,
            9
          ]
        ]; #from Dumper
  1 #from print $$ref[0][0]

正如您从转储中看到的那样，您已经在$ref 中收到了@inputarray。现在按照您想要的方式使用它。