Question

我正在查看一些代码，但我不明白以下行正在做什么/检查：

return if !%Foo::Details:: ;

这究竟是做什么的？它是否检查模块Foo :: Details？

的存在

Answer 1

标量上下文中的散列如果为空则返回false，因此如果散列%Foo::Details::为空，则代码返回空列表。

该哈希是Foo::Details命名空间的符号表。如果在Foo::Details命名空间中创建了包变量或sub，则将在%Foo::Details::中创建与变量或sub的名称对应的glob。因此，如果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"}是否为真。该方法的问题在于它不会找到“内联模块”。

Answer 2

此代码测试是否已加载模块。 %Foo::Details::是模块Foo::Details的符号表。

如果永远不会加载Foo::Details %Foo::Details::将返回false（因为它不包含任何元素），当用!否定时，它将返回true并从您所处的任何函数返回。< / p>

您可以在perlmod#Symbol Tables

中详细了解符号表

此外，here is another SO post讨论了确定模块是否已加载的方法。

这条线在perl中意味着什么？

2 个答案: