perl - 防止perl中的多个包含

Question

假设我有两个文件：一个看起来像这样的模块文件：

package myPackage;
use Bio::Seq;

和另一个看起来像这样的文件：

use lib "path/to/lib";
use myPackage;
use Bio::Seq;

我怎样才能防止 Bio::Seq 被包含两次？谢谢

Answer 1

模块不像在 C 中那样“包含”在 Perl 中。它们是“加载的”，我的意思是“执行”。

一个模块只会被加载/执行一次，无论有多少条use语句指定它。

每个模块唯一发生的事情use就是调用模块的import方法。这通常用于将符号导出到 using 命名空间。

Answer 2

它不会被包含两次。use语义可以这样描述：

1. require模块
2. 调用模块的import

正如文档所说，它相当于：

BEGIN { require Module; Module−>import( LIST ); }

require另一方面，机制确保模块的代码只编译和执行一次，有些人第一次需要它。这种机制是基于特殊变量的%INC。您可以在 、 和 perlmod 页面的文档中找到更多use详细信息。require

Answer 3

use Foo

主要相当于

# perldoc -f use
BEGIN { 
    require "Foo.pm";
    Foo->import();
}

并且require "Foo"大多相当于

# perldoc -f require
sub require {
  my ($filename) = @_;
  if (exists $INC{$filename}) {
    return 1 if $INC{$filename};
    die "Compilation failed in require";
  }
  # .... find $filename in @INC
  # really load
  return do $realfilename;
}

所以

不，代码不会多次“加载”，只会多次“导入”。

如果您有代码，例如

package Bio::Seq;
...
sub import { 
  # fancy stuff
}

你想确保加载了一个库，但不调用import它，

#perldoc -f use
use Bio::Seq ();

Answer 4

我猜，你想优化Module的加载（使用）。

对于优化，动态加载可能会有所帮助。

为了动态加载 Perl 模块，我们使用Class::Autouse。

有关更多详细信息，您可以访问此链接。

Answer 5

use我猜 OP 可能会寻找一种方法来避免在他/她的 Perl 脚本开头出现一长串语句样板。在这种情况下，我想向大家指出Import::Into. 它的工作方式类似于 Java 和 Python 中的关键字import。此外，这篇博文还提供了一个精彩的Import::Into.