Perl DBI 操作數據庫

• 連接實例
• 顯示sql結果實例

模塊名稱

DBI

 

一、連接實例

my $sql = qw{ sql };
my $dbh = DBI->connect("DBI:數據庫類型:database=數據庫名稱;host=localhost","root","passwd", {'RaiseError' => 1});

my $sth=$dbh->prepare("$sql");
$sth->execute();
$sth->finish;

$dbh->disconnect();

my $sql = qw{ sql };

聲明要執行的sql語句

 

my $dbh = DBI->connect("DBI:數據庫類型:database=數據庫名稱;host=localhost","root","passwd", {'RaiseError' => 1});

連接數據庫,數據庫類型爲mysql、Oracle、db2.root,passwd對應登錄賬號密碼

 

my $sth=$dbh->prepare("$sql");

準備執行之前聲明的sql語句

 

$sth->execute();

執行sql語句

 

$sth->finish;
執行完畢

 

$dbh->disconnect();

斷開數據庫

 

 

二、顯示sql結果實例

my $sql = shift;
my $dbh = DBI->connect("DBI:數據庫類型:database=數據庫名稱;host=localhost","root","passwd", {'RaiseError' => 1});

my $sth=$dbh->prepare("$sql");

$sth->execute();
while (my @now = $sth->fetchrow_array()) {

     print @now;

}
$sth->finish;

$dbh->disconnect();

 

增加一$sth->fetchrow_array()即可

 

更多操作請移步至

http://search.cpan.org/~timb/DBI-1.628/DBI.pm