perl的：模块间变量使用

Question

我有一个模块misc具有可变$verbose：

use strict; 
use diagnostics; 
package misc; 
my $verbose = 1; 

和模块mymod其使用misc：

use strict; 
use diagnostics; 
use misc; 
package mymod; 
sub mysub ($) { 
    ... 
    ($misc::verbose > 0) and print "verbose!\n"; 
} 

这，反过来，由myprog使用：

use strict; 
use diagnostics; 
use misc; 
use mymod; 
mymod::mysub("foo"); 

当我exe可爱myprog，我得到这样的警告：

Use of uninitialized value $misc::verbose in numeric gt (>) at mymod.pm line ... 

我究竟做错了什么？

Answer 1

在mymod.pm你应该使用：而不是

our $verbose = 1; 

：

my $verbose = 1; 

该警告是因为$misc::verbose尝试访问包变量$verbose在misc包，顺便说一句，没有声明。

my函数创建一个词汇范围变量。在这种情况下，您需要使用our函数创建的包范围变量。

请关注daxim的comment。