perl - 变量声明可以放在通用脚本中吗

Question

在我开始之前，整个“概念”在技术上可能是不可能的；希望有人对这些事情有更多的了解，并给我建议。

使用 Perl，您可以通过 my/our 在脚本开头“声明”全局变量，如下所示:

my ($a,$b,$c ..)

只要有一些独特的变量就可以了。但我正在使用其中大约 50 个......并且五个脚本使用相同的名称(而不是值)。我想知道是否有一种方法可以在一个脚本中创建它们，而不是必须在每个文件的开头放置巨大的 my( ...) block 。注意:声明 namespace ，而不是它们的值。

我尝试将它们全部放在一个文件中，shebang 位于顶部，1 位于底部，然后尝试使用“require”、“use”和“do”来加载它们。但是 - 在某些时候 - 脚本提示它找不到全局包名称。 (也许“paths.pl”正在设置相对于自身的全局空间 - 其他脚本无法“看到”)

在 Google 上查看，有人建议在第二个文件中设置变量，并仍然在调用脚本中设置 my ...但这违背了我想要做的事情，只需声明一次 namespace ，然后在另一个脚本中设置值

** 到目前为止，如果我从 HTML 页面中的链接转到 Perl 脚本，上述方法似乎有效。但是当我使用类似的设置通过 XHTMLRequest 调用脚本时，它无法在“paths”脚本中找到 $a、$b、$c 等

HTML
<form method="post" action="/cgi-bin/track/script1.pl>
<input type="submit" value="send"></form>

Perl: (script1.pl)
#shebang
require "./paths.pl"
$a=1;
$b="test";
print "content-type: text/html\n\n";
print "$a $b";

Paths.pl
our($a,
$b,
$c ...
)1;

Seems to work OK, with no errors. But ...
# Shebang
require "./paths.pl"
XHTMLREQUEST script1.pl

Now it complains it cannot find $a or $b etc as an "explicit package" for "script1.pl"

我是否正在进入“模块”领域——我对此知之甚少。请记住，我不是在链接文件中声明值，而是设置“全局空间”，以便所有声明自己值的脚本都可以使用它们。

(切线，我认为 - 在过去 - 同一目录中的文件可以作为“paths.pl”访问 - 但它不会接受这一点，并且它坚持使用“./”也许这是问题的一部分。我也尝试过绝对路径和相对路径，从“url/cgi-bin/track/”到“/cgi-bin/track”，但似乎也无法使其工作)

我相当确定它找到了路径文件，因为我在要求之前放置了“我的值”，并在路径中设置了一个字符串，并且它能够将其打印出来。

Answer 1

首先，词法(my)变量仅存在于其范围内。文件是一个范围，因此它们仅存在于其文件中。您现在正在尝试解决这个问题，当您发现自己以这种方式与语言作斗争时，您应该意识到自己做错了。

您应该避免在程序顶部一次性声明所有变量。在您想要使用它们的范围附近声明它们，并在尽可能小的范围内声明它们。

你说你想“建立一个全局空间”，所以我认为你可能误解了一些东西。如果你想在某个范围内声明一个词法变量，你就这样做。您无需执行任何其他操作即可实现这一点。

而不是这个:

my( $foo, $bar, $baz );

$foo = 5;
sub do_it { $bar = 9; ... }
while( ... ) { $baz = 6; ... }

在您想要的位置声明变量:

my $foo = 5;
sub do_it { my $bar = 9; ... }
while( ... ) { my $baz = 6; ... }

每个词法变量都应该存在于可以容忍的最小范围内。这样就没有其他东西可以扰乱它，并且它不会保留以前操作中不应保留的值。毕竟，这就是他们的重点。

当您将它们声明为文件作用域时，请不要在使用它们的作用域中声明它们，否则可能会出现两个不相关的同名用法，从而相互冲突。词法变量的主要好处之一是您不必知道作用域或程序中任何其他变量的名称:

my( $foo, ... );

while( ... ) {
   $foo = ...;
   do_something();
   ...
   }

sub do_something {
   $foo = ...;
   }

while 和 sub 中 $foo 的用法是否相同，或者它们是否意外具有相同的名称？这是一个残酷的问题，需要留给维护计划。

如果它们是相同的东西，则让子例程从其参数列表中获取其值。您可以使用相同的名称，但由于每个作用域都有自己的词法变量，因此它们不会相互干扰:

while( ... ) {
   my $foo = ...;
   do_something($foo);
   ...
   }

sub do_something {
   my( $foo ) = @_;
   }   

---

另请参阅:

• How to share/export a global variable between two different perl scripts?

你说你没有做我要解释的事情，但其他人可能想做一些类似的事情来分享值(value)观。由于您在程序之间共享相同的变量名称，因此我怀疑这实际上是正在发生的事情。

在这种情况下，CPAN 上有许多模块可以完成这项工作。您的选择取决于您想要在程序之间共享什么类型的内容。我在Mastering Perl中有一个章节关于它的一切。

您也许能够摆脱这样的情况，其中一个模块定义所有值并使它们可用于导出:

# in Local/Config.pm
package Local::Config;
use Exporter qw(import);
our @EXPORT = qw( $foo $bar );        
our $foo = 'Some value';
our $bar = 'Different value';
1;

要使用它，只需使用 use 加载它即可。它将自动导入您放入 @EXPORT 中的变量:

# in some program
use Local::Config;

我们在 Intermediate Perl 中介绍了很多此类内容。 .