Question

所以假设我有一个main.pl脚本，在那个脚本中我需要声明一些变量（任何变量常量或正常变量），这些变量需要通过我将要使用的所有脚本和模块来获取自动包含main.pl脚本。

如果我在$myVar和main.pl中有变量main.pl，我需要script1.pl，script2.pl或script3.pm，并且我需要访问$myVar中的任何一个脚本，因为您将访问该特定脚本或模块中定义的任何var。

我在网上搜索过，但我只找到了可以从你包含的脚本中访问变量或从模块中提取变量的示例;但这不是我想要的。

在PHP中是否存在使用global $var1, $var2等来使用父脚本中的变量的关键字？

任何示例，文档或文章都是可以接受的 - 基本上任何可以帮助我实现这一目标的内容都会有所帮助。

Answer 1

您可以使用our关键字声明全局变量：

our $var = 42;

每个全局变量都有一个完全限定的名称，可用于从任何地方访问它。全名是包名称加上变量名称。如果您尚未在此时声明包，则表示您处于main个包中，该包可以缩短为前导::。所以上面的变量有名字

$var       # inside package main
$main::var # This is most obvious
$::var     # This may be a good compromise

如果我们使用了另一个包，则前缀会改变，例如

package Foo;
our $bar = "baz";
# $Foo::bar from anywhere,
# or even $::Foo::bar or $main::Foo::bar

如果我们想要使用不带前缀的变量，但在其他包下，我们必须将其导出。这通常通过继承Exporter来完成，请参阅@Davids答案。但是，这只能提供来自use d的包的变量，而不是相反。 E.g。

Foo.pm：

package Foo;
use strict; use warnings;
use parent 'Exporter'; # imports and subclasses Exporter

our $var = 42;
our $not_exported = "don't look at me";

our @EXPORT = qw($var); # put stuff here you want to export
# put vars into @EXPORT_OK that will be exported on request

1;

script.pl：

#!/usr/bin/perl
# this is implicitly package main
use Foo; # imports $var

print "var = $var\n"; # access the variable without prefix
print "$Foo::not_exported\n"; # access non-exported var with full name

词法变量（使用my声明）没有全局唯一名称，并且无法在其静态范围之外访问。它们也不能与Exporter一起使用。

Answer 2

最简单的方法是创建自己的模块。因此，例如，如果我想要对变量$foo and $bar进行全局访问，那么我可以创建一个模块，如下所示：

# file:  MyVars.pm
package MyVars;

$foo = 12;
$bar = 117.8;

1;

然后我可以使用任何使用MyVars模块的perl脚本访问这些变量：

# file:  printvars.pl
use MyVars;

print "foo = $MyVars::foo\nbar = $MyVars::bar\n";

输出：

foo = 12
bar = 117.8

Perl - 所有包含的脚本和模块中可用的全局变量？

2 个答案: