我有一个关于 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”需要显式包名
最佳答案
没有require
在您的第二个示例中声明,但无论如何它都不起作用。什么our
确实是声明一个词法范围的包变量。既然你没有package
声明,它使用默认包 main
.所以你的第一个脚本设置了变量 $main::var1
,但这仅在该文件的范围内可用。
为其他脚本提供公共(public)变量的更好方法是使用 Exporter .您可以在一处定义包符号,Exporter 会在需要时将它们复制到请求脚本或类的命名空间中。
关于perl - 为什么我的 Perl 脚本看不到我在另一个文件中定义的 our() 变量?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1550727/