Perl 中有用的 DBI 函数


检查 available_drivers

@ary = DBI->available_drivers;
@ary = DBI->available_drivers($quiet);

通过 @INC 中的目录查找 DBD::* 模块来返回所有可用驱动程序的列表。默认情况下,如果某些驱动程序被先前目录中同名其他驱动程序隐藏,则会给出一条警告。传递给 $quiet 的 true 值会禁止该警告。

检查 installed_drivers

%drivers = DBI->installed_drivers();

返回驱动程序名称和驱动程序句柄对的列表,这些列表针对所有“已安装”(已加载)到当前进程的驱动程序。驱动程序名称不包含“DBD::”前缀。

检查 data_sources

@ary = DBI->data_sources($driver);

返回通过命名驱动程序可用的数据源(数据库)列表。如果 $driver 为空或未定义,则会使用 DBI_DRIVER 环境变量的值。

创建字符串引号

$sql = $dbh->quote($value);
$sql = $dbh->quote($value, $data_type);

将字符串文字引起来,以便在 SQL 语句中用作文字值,通过转义字符串中包含的任何特殊字符(如引号)并添加所需类型的外部引号。

$sql = sprintf "SELECT foo FROM bar WHERE baz = %s",
$dbh->quote("Don't");

对于大多数数据库类型,quote 会返回“Don‘t”(包括外部引号)。quote() 方法返回评估为所需字符串的 SQL 表达式是有效的。例如 −

$quoted = $dbh->quote("one\ntwo\0three")
may produce results which will be equivalent to
CONCAT('one', CHAR(12), 'two', CHAR(0), 'three')

更新于:2019-12-02

96 次浏览

开启您的 职业生涯

通过完成课程获得认证

开始学习
广告