Question

可能重复：
how to import multiple custom modules in our own perl script?

我有一些包裹。我想一次性导入它们。现在，我正在做

use lib 'path to packages';

use package1;

use package2;

......

use packageN;

哪个工作正常。但我想只用一个命令导入所有包。任何人都可以建议我做一个最简单的方法吗？

Answer 1

Audrey Tang在CPAN上有一个相对较新的模块叫做“ use ”，它会完全按照你的要求行事。从其概要：

use use qw[ strict warnings methods invoker ];

它还有其他功能，包括指定导入列表等选项的功能，因此请阅读文档。但最低限度，只需将您自己的模块名称替换为我的示例代码中枚举的名称。

更新：所以要尽可能清楚地拼写出来：首先，安装我在此答案顶部链接的“使用”模块。其次，修改您在问题中发布的代码，使其如下所示：

use lib 'path to packages';
use use qw[ package1 package2 package3 package4 ..... ];

Answer 2

好吧，你可以制作一个为你做的模块。例如：

use v5.10;

use strict; 
use warnings;

use mro     (); 
use feature ();

sub import {
    warnings->import();
    strict->import(); 
} 

1;

现在，上面的模块不起作用，但你得到了要点。如果您想要一个有效的例子，请查看the source code for Modern::Perl。

如果你这样做了，你只需写一行！

希望这有帮助！