我需要动态地包含一个Perl模块，但是如果可能的话，由于工作编码标准，我们希望远离eval。这工作：
- $module = "My::module";
- eval("use $module;");
但是如果可能的话，我需要一个没有eval的方法。所有google搜索都会导致eval方法，但是没有任何其他方式。
有没有eval可以做到这一点？
解决方法
在运行时使用
require加载模块。如果模块无法加载，通常会将其包装在块(而不是字符串)eval中。
- eval {
- require My::Module;
- My::Module->import();
- 1;
- } or do {
- my $error = $@;
- # Module load Failed. You could recover,try loading
- # an alternate module,die with $error...
- # whatever's appropriate
- };
eval {…}或做{…}语法和复制$ @的原因是因为$ @是一个可以由许多不同的东西设置的全局变量。你想尽可能地以原子方式获取这个值，以避免竞争条件其他的东西设置为不同的值。
如果您在运行时不知道该模块的名称，则必须手动在模块名称(My :: Module)和文件名(My / Module.pm)之间进行翻译：
- my $module = 'My::Module';
- eval {
- (my $file = $module) =~ s|::|/|g;
- require $file . '.pm';
- $module->import();
- 1;
- } or do {
- my $error = $@;
- # ...
- };