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')
广告