从另一个调用一个 Perl 脚本，传递一个 CGI 参数

Question

我有两个 Perl 脚本。我们称他们为one.pl 和two.pl。

one.pl处理一些数据，需要调用two.pl，传递一个变量。

在one.pl我可以

require "two.pl"

调用第二个脚本。

这很好，但我想将 CGI 变量传递给 two.pl。

有没有办法在不将two.pl 重写为 Perl 模块的情况下做到这一点？

例如我想要的是：

一个.pl

...

require "two.pl $number";

两个.pl

use CGI;

my $cgi = new CGI;

my $number = $cgi->param('number');

...

---

编辑： two.pl 应该只被调用一次

Answer 1

如果 one.pl 不在 CGI 环境中

如果你的one.pl是一个shell脚本，你可以在调用require之前设置@ARGV。这滥用了CGI 的模式来处理命令行参数。 arg 需要是参数名称等于值。

{
    my $number = 5;
    local @ARGV = ( "number=$number" );
    require "two.pl";
}

key=value 格式很重要。 local keyword 确保 @ARGV 仅设置在块内，确保脚本的其他可能参数不会永久丢失，而是对 two.pl 不可见。

如果 one.pl 在 CGI 环境中

• 如果参数已经存在，则无需执行任何操作。
• 其他，见上文。

---

请注意，对于这两种情况，您只能require 一个脚本一次。这就是require 的想法。 Perl 会跟踪它已经加载的内容（在%INC 中）。如果您处于mod_perl 之类的环境中，或者是持久运行的现代 Perl 应用程序，您应该改用do "two.pl"，它每次都会执行它。但是，如果 two.pl 并非设计为在同一进程中多次运行，那么这可能会破坏其他事情。

最好的办法是将 two.pl 中的代码重构为一个模块，并在两个脚本中使用它。