我正在看一些代码,但我不明白下面这行代码在做什么/检查什么:
。
return if !%Foo::Details:: ;
这段代码在做什么?它是在检查模块Foo::Details是否存在吗?
。
return if !%Foo::Details:: ;
这段代码在做什么?它是在检查模块Foo::Details是否存在吗?
%Foo::Details::
为空,你的代码会返回一个空列表。Foo::Details
命名空间的符号表。如果在Foo::Details
命名空间中创建了包变量或子程序,则与变量或子程序名称相对应的全局变量将在%Foo::Details::
中创建。因此,如果Foo::Details
命名空间为空,则会返回一个空列表。$ cat >Foo/Details.pm
package Foo::Details;
sub boo { }
1;
$ perl -E'say %Foo::Details:: ?1:0;'
0
$ perl -E'use Foo::Details; say %Foo::Details:: ?1:0;'
1
它可能试图检查是否已加载了Foo :: Details模块,但它不是完美的。例如,即使仅加载了Foo :: Details :: Bar,它也会认为已加载了Foo :: Details。要检查是否已加载Foo :: Details,最好检查$ INC {“Foo / Details.pm”}
是否为true。这种方法的问题在于它无法找到“内联模块”。
以下代码测试模块是否已加载。%Foo::Details::
是模块Foo::Details
的符号表。
如果Foo::Details
从未被加载,%Foo::Details::
将会返回false(因为它不包含任何元素),当与!
取反时,将返回true并返回您所在的任何函数。
您可以在perlmod#符号表
中了解有关符号表的更多信息。
此外,这里是另一个SO帖子
,介绍了确定模块是否已加载的方法。
%main::
中? - Hunter McMillen$Foo::{'Details::'}
(它是一个包含其哈希槽中的%Foo::Details::的全局变量)。 - ysth
%Foo::Details
是包Foo::Details
的符号表入口,如果它没有被加载,它将返回 false,当对其取反时会返回 true。请参阅perlmod
中的符号表部分。 - Hunter McMillenFoo::Details::
而不是Foo::Details
)?这只是语法吗? - Nosrettap%Foo :: Bar ::
将评估为真,即使未加载模块“Foo :: Bar”,甚至如果未加载“Foo :: Bar”也会加载模块“Foo :: Bar :: Baz”! - tobyink