我需要动态地包含一个Perl模块，但是如果可能的话，由于工作编码标准，我们希望远离eval。这工作：
@H_404_2@$module = "My::module";
eval("use $module;");
但是如果可能的话，我需要一个没有eval的方法。所有google搜索都会导致eval方法，但是没有任何其他方式。
有没有eval可以做到这一点？
解决方法
在运行时使用
require加载模块。如果模块无法加载，通常会将其包装在块(而不是字符串)eval中。
@H_404_2@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)之间进行翻译：
@H_404_2@my $module = 'My::Module'; eval { (my $file = $module) =~ s|::|/|g; require $file . '.pm'; $module->import(); 1; } or do { my $error = $@; # ... };