html - 如何在我的 perl 程序中访问其他 perl 程序的变量

Question

我有三个不同的 Perl 程序。我想访问其他两个 Perl 程序中第一个程序中存在的变量的值。

我的第一个 Perl 程序如下所示:

#!/usr/bin/perl
print "Content-Type: text/html; charset=utf-8\n\n";

use CGI;
use Cwd;
use utf8;
$q=new CGI;
$a=$q->param('file');
#chomp($a);
my $ftpname="$a";

这个程序从 HTML 程序的文本中获取值(value)。我需要我的其他 Perl 程序中 $ftpname 变量的值。我该怎么做？

Answer 1

可以有不止一种方法来解决您的问题。

1. 您可以将 $a 的值保存在一个文本文件中，然后在您的其他两个程序中读取该文本文件。
2. 您可以创建一个模块，其中包含对$a 的值进行操作的函数。然后您可以使用 $a 作为参数调用正确的 moduleName::functionName。一个简单的入门教程是 here .
3. 如果你无论如何都想共享变量，你可以有一个模块作为某种带有变量声明的头文件(使用 our 关键字和/或导出)，然后这个模块在所有其他 perl 脚本中 used 并且该变量随处可见。参见 this answer .有关变量范围的更多帮助，您可以阅读此引用资料:Coping with Scoping