mysql - 数据库存在使用 perl

Question

有没有办法使用 perl 检查数据库是否存在？这是一个快速简单的方法。但我还在习惯 perl 和 DB

Answer 1

DBI 模块是一种在 perl 中访问和操作数据库的流行方式。下面是一个使用 DBI 测试连接的简短示例:

use DBI;

$user = 'donny';
$pw = 'ppp';
$dsn = 'basetest';
$dbh = DBI->connect($dsn, $user, $pw) or die "Unable to connect: $DBI::errstr\n";

最后一行也可以是这样的:

$dbh = DBI->connect('dbi:Oracle:',$user.'@'.$password,$dbconnectstring);

或类似的东西 - 只需编辑第一个参数即可。

如您所见 - 如果找不到数据库，您将无法连接。

这是与 DBI 相关的文档: http://dbi.perl.org/docs/

旁注:另外请注意，您可以在 perl 脚本中访问 sqlplus - 或任何命令行。只需使用反引号。如果您的机器上有可用的工具，那么以这种方式检查可能是值得的。