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 次瀏覽

開啟您的 職業生涯

透過完成課程獲得認證

開始學習
廣告
© . All rights reserved.