資料結構
網路
RDBMS
作業系統
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP
物理學
化學
生物學
數學
英語
經濟學
心理學
社會科學
時尚研究
法律研究Perl 中的資料庫讀取操作
Perl 在任何資料庫上的讀取操作意味著從資料庫中提取一些有用的資訊，即從一個或多個表中提取一條或多條記錄。因此，一旦建立了資料庫連線，我們就可以對該資料庫進行查詢。以下是查詢所有 AGE 大於 20 的記錄的步驟。這將分為四步 -
- 根據所需條件準備 SQL SELECT 查詢。這將使用 prepare() API 完成。
- 執行 SQL 查詢以從資料庫中選擇所有結果。這將使用 execute() API 完成。
- 一個接一個地獲取所有結果並列印這些結果。這將使用 fetchrow_array() API 完成。
- 釋放語句控制代碼。這將使用 finish() API 完成。
my $sth = $dbh->prepare("SELECT FIRST_NAME, LAST_NAME FROM TEST_TABLE WHERE AGE > 20");
$sth->execute() or die $DBI::errstr;
print "Number of rows found :" + $sth->rows;
while (my @row = $sth->fetchrow_array()) {
my ($first_name, $last_name ) = @row;
print "First Name = $first_name, Last Name = $last_name\n";
}
$sth->finish();使用繫結值
在尚未提前給出條件的情況下可能會出現這種情況。因此，您可以使用繫結變數，它將在執行時獲取所需的值。Perl DBI 模組在實際值的位置使用問號，然後在執行時透過 execute() API 傳遞實際值。以下是示例 -
$age = 20;
my $sth = $dbh->prepare("SELECT FIRST_NAME, LAST_NAME FROM TEST_TABLE WHERE AGE > ?");
$sth->execute( $age ) or die $DBI::errstr;
print "Number of rows found :" + $sth->rows;
while (my @row = $sth->fetchrow_array()) {
my ($first_name, $last_name ) = @row;
print "First Name = $first_name, Last Name = $last_name\n";
}
$sth->finish();
更新於： 02-12-2019
603 次瀏覽
廣告