在perl Pass值到另一个脚本并获取

Question

我在perl脚本中使用以下代码来调用带有参数的另一个脚本。

以下代码是调用另一个脚本

script1.pl

    system("start $script_name $from $range1");

以下代码用于获取参数值

script2.pl
$from =shift;
$to = shift;

但我对使用此方法没有任何价值。如何将值传递给另一个脚本以及如何获取这些值？

Answer 1

这对我有用：

script1.pl：

#!/usr/bin/perl

system("./script2.pl 1 2");

script2.pl：

#!/usr/bin/perl

$from = shift @ARGV;
$to = shift @ARGV;
print "$from $to\n";

Answer 2

而不是使用system("start $script_name $from $range1");

使用如下

system("start perl $script_name $from $range1");

这会对你有帮助。