perl - 我可以安全地要求 Perl 的 DBI 而不是使用它吗？

Question

我有一个还没有数据库连接的大型脚本。我需要一个来实现一个微小的新功能。在我需要的地方向 require DBI 添加一个裸 block 是否安全，或者我是否需要导入某些东西？

# Lots of no-database code here...
my $obj;
{
  require DBI;
  my $dbh = DBI->connect('dsn');
  $obj = ModuleThatNeedsDBH->new(dbh => $dbh);
}
$obj->fancyStuff();
# More no-database code...

当然，这个 block 是为了让 $dbh 对程序的其余部分隐藏。

Answer 1

默认 DBI模块不会将任何内容导入调用包，所以是的，理论上你可以使用 require而不是 use .

但是您希望从中获得什么？在这种情况下 use DBI相当于BEGIN { require DBI } , 如果省略 BEGIN阻止您在运行时强加加载包的冗长过程，这是不可取的。

请注意，您还必须处理连接到数据库的任何失败。

my $dbh = DBI->connect('dsn', 'user', 'pass')
            or die $DBI::errstr;

虽然在你的情况下死亡可能有点极端。