mysql - DB 使用 perl 存在

Question

有没有办法使用 perl 检查 DB 是否存在？它是一个快速和简单的。但我仍然习惯 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 - 或任何命令行。只需使用反引号。如果您的机器上有可用的工具，那么检查这种方式可能是值得的。