这行 Perl 代码的含义是什么？

Question

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

。

return if !%Foo::Details:: ;

这段代码在做什么？它是在检查模块Foo::Details是否存在吗？

- Nosrettap

---

看起来这是一种非常不好的测试模块是否已加载到符号表的方法。%Foo::Details 是包 Foo::Details 的符号表入口，如果它没有被加载，它将返回 false，当对其取反时会返回 true。请参阅 perlmod 中的符号表部分。 - Hunter McMillen

这段代码一开始并不是很清晰，这就是为什么我认为它很差的原因。有更好、更易读的解决方案。 - Hunter McMillen

为什么它在结尾有两个冒号 (Foo::Details:: 而不是 Foo::Details)？这只是语法吗？ - Nosrettap

@HunterMcMillen 谢谢！如果你把你的评论放在答案里，我会接受它。 - Nosrettap

@Jarmund，检查模块是否已加载的一种不好的方法是因为％Foo :: Bar ::将评估为真，即使未加载模块“Foo :: Bar”，甚至如果未加载“Foo :: Bar”也会加载模块“Foo :: Bar :: Baz”！ - tobyink

Answer 1

在标量上下文中，哈希表如果为空则返回false，因此如果哈希表%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。这种方法的问题在于它无法找到“内联模块”。

- ikegami

Answer 2

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

如果Foo::Details从未被加载，%Foo::Details::将会返回false(因为它不包含任何元素)，当与!取反时，将返回true并返回您所在的任何函数。

您可以在perlmod#符号表中了解有关符号表的更多信息。

此外，这里是另一个SO帖子，介绍了确定模块是否已加载的方法。

- Hunter McMillen

---

更准确地说，%Foo::Details::是该模块的符号表。 - ysth

这不是技术上的一个条目吗？因为它保存在％main::中？ - Hunter McMillen

%Foo::Details:: 的每个元素都是一个条目。%Foo::Details:: 包含了 Foo::Details 命名空间的条目，也就是说它是 Foo::Details 的符号表。 - ikegami

Foo::Details的符号表entry是$Foo::{'Details::'}（它是一个包含其哈希槽中的%Foo::Details::的全局变量）。 - ysth