Perl:如何获取会话文件中使用的列表变量

Question

在我的工作场所，我们有一个webportal，它有一些核心文件，通过这些文件调用其他文件。因此，用户名和项目id有一些变量，每个人都使用这些变量，并在核心文件中定义它们。现在，我必须避免使用严格的使用相同的变量，但我不想这样做。那么，如何获得核心文件中的变量列表呢？或者在基本情况下，如何在使用严格的条件下获得变量$projectId中的值。

Answer 1

没有用my声明并在词汇上限定作用域的任何变量都是包变量。您可以通过使用包对变量名进行限定来引用包变量，而无需strict抱怨。因此，如果“核心文件”在默认的$projectid包中定义了变量main，则可以安全地使用

$main::projectid
$::projectid         ($::foo  is the same thing as $main::foo)

或者，如果“核心文件”包含类似于package的package ProjectData;语句，则可以使用

$ProjectData::projectid

如果全局变量来自当前包(例如，核心文件和脚本都在使用默认包)，那么还可以通过使用our关键字声明变量来满足our。

package main;
our $projectid;
# now  $projectid  refers to $main::projectid
...