perl - 为什么我的 Perl 脚本看不到我在另一个文件中定义的 our() 变量？

Question

我有一个关于 Perl 和范围界定的问题。我有一个包含许多各种变量的通用文件。我在我的主脚本中需要公共(public)文件，但我无法访问变量；它们似乎超出了它的范围。我认为 our 声明可以解决这个问题，但它似乎不起作用。

脚本 1:common.pl

#!/usr/bin/perl

our $var1 = "something";
our $var2 = "somethingelse";

脚本 2:ftp.pl

#!/usr/bin/perl

use strict;
use warnings;

require('common.pl');

print $var1; 

我收到错误消息:全局符号“$var1”需要显式包名

Answer 1

没有require在您的第二个示例中声明，但无论如何它都不起作用。什么our确实是声明一个词法范围的包变量。既然你没有package声明，它使用默认包 main .所以你的第一个脚本设置了变量 $main::var1 ，但这仅在该文件的范围内可用。

为其他脚本提供公共(public)变量的更好方法是使用 Exporter .您可以在一处定义包符号，Exporter 会在需要时将它们复制到请求脚本或类的命名空间中。