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

如果 一pl公司 不在CGI环境中

如果您的 一pl公司 是一个shell脚本,可以设置 @ARGV 在调用之前 require . 这种滥用 CGI 的模式使用命令行参数。arg必须是与值相等的参数名称。

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

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

如果 一pl公司 在CGI环境中

• 如果参数已经存在,则无需执行任何操作。
• 否则,请参见上文。

请注意,对于这两种情况,您只能 要求 一次脚本。这就是 要求 . Perl跟踪已经加载的内容(在 %INC ). 如果你身处这样的环境 mod_perl ,或持久运行的现代Perl应用程序 do "two.pl" 相反,每次都会执行它。但如果 二pl公司 未设计为在同一进程中多次运行。

最好的办法是重构内部代码 二pl公司 并在两个脚本中使用。