我有 2 个 perl 脚本,通过将数组作为参数传递primary_script.pl
来调用脚本。secondary_script.pl
我的代码如下所示:
primary_script.pl
#!/usr/bin/perl
use Data::Dumper;
my @array = qw/1 2 3 4 5/;
print Dumper(\@array);
my $arr = \@array;
system("perl secondary_script.pl $arr") ;
print "END\n";
次要脚本.pl
#!/usr/bin/perl
my @var = @{$ARGV[0]};
print @var."\n";
我将数组引用作为参数传递到secondary_script.pl
那里并从那里取消引用该数组。这里@var
打印0
结果而不是传递的数组内容primary_script.pl
。
这是将数组作为参数传递给另一个 perl 脚本的正确方法吗?