linux下perl操作mysql數(shù)據(jù)庫(需要安裝DBI)
更新時(shí)間：2012年05月28日 00:51:55 作者：
有時(shí)候需要perl操作mysql數(shù)據(jù)庫，可以通過DBI實(shí)現(xiàn)，需要的朋友可以參考下
DBI安裝：DBI詳細(xì)信息參考：http://dbi.perl.org/
1.下載DBI包：
wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz
2 解壓
tar xzf DBI-1.620.tar.gz
3 進(jìn)入解壓包內(nèi)，
perl Makefile.PL
4 make test
5 make
6 make install (如果不是root用戶，要sudo一下）
DBD安裝：
1.下載DBD
wget http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.021.tar.gz
2. 3. 同上
在進(jìn)行第三步是可能會(huì)出現(xiàn)mysql_config找不到的情況，應(yīng)該是沒有安裝開發(fā)工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
來安裝這兩個(gè)包。
其余同上。
完成安裝后就可以利用perl腳本進(jìn)行mysql數(shù)據(jù)的操作了。
編寫perl腳本操作數(shù)據(jù)庫
#! /usr/bin/perl
use DBI;
my $driver="DBI:mysql";
my $database="perl_test";
my $user="root";
my $host="localhost";
my $passwd="root";
my $rules="alert_rules";
my $dbh = DBI->connect("$driver:database=$database;host=$host;user=$user;password=$passwd")
or die "Can't connect: " . DBI->errstr;
my $sth=$dbh->prepare("select app_name,receivers from $rules ");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
my $sth=$dbh->prepare("select app_name,receivers from $rules ");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
# 打印獲取的數(shù)據(jù)
while(@recs=$sth->fetchrow_array){
print $recs[0].":".$recs[1]."\n";
}
$sth->finish();
$dbh->disconnect();
1.下載DBI包：
wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz
2 解壓
tar xzf DBI-1.620.tar.gz
3 進(jìn)入解壓包內(nèi)，
perl Makefile.PL
4 make test
5 make
6 make install (如果不是root用戶，要sudo一下）
DBD安裝：
1.下載DBD
wget http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.021.tar.gz
2. 3. 同上
在進(jìn)行第三步是可能會(huì)出現(xiàn)mysql_config找不到的情況，應(yīng)該是沒有安裝開發(fā)工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
來安裝這兩個(gè)包。
其余同上。
完成安裝后就可以利用perl腳本進(jìn)行mysql數(shù)據(jù)的操作了。
編寫perl腳本操作數(shù)據(jù)庫
復(fù)制代碼 代碼如下:
#! /usr/bin/perl
use DBI;
my $driver="DBI:mysql";
my $database="perl_test";
my $user="root";
my $host="localhost";
my $passwd="root";
my $rules="alert_rules";
my $dbh = DBI->connect("$driver:database=$database;host=$host;user=$user;password=$passwd")
or die "Can't connect: " . DBI->errstr;
my $sth=$dbh->prepare("select app_name,receivers from $rules ");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
my $sth=$dbh->prepare("select app_name,receivers from $rules ");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
# 打印獲取的數(shù)據(jù)
while(@recs=$sth->fetchrow_array){
print $recs[0].":".$recs[1]."\n";
}
$sth->finish();
$dbh->disconnect();
相關(guān)文章
SpringBoot連接MySQL獲取數(shù)據(jù)寫后端接口的操作方法
今天通過本文給大家介紹SpringBoot連接MySQL獲取數(shù)據(jù)寫后端接口的操作方法，本文通過圖文并茂的形式給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友參考下吧2021-11-11
這篇文章主要介紹了MySQL安全輸入密碼的一些操作,示例基于Linux操作系統(tǒng),需要的朋友可以參考下2015-07-07
這篇文章主要給大家介紹了關(guān)于RR與RC隔離級(jí)別下索引和鎖的測試腳本的相關(guān)資料，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2018-12-12
詳解DBeaver連接MySQL8以上版本以及解決可能遇到的問題
這篇文章主要介紹了DBeaver連接MySQL8以上版本以及解決可能遇到的問題，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-11-11
本文主要介紹了MySQL索引頁結(jié)構(gòu)，文中通過示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2022-02-02
本文主要介紹了MySQL基礎(chǔ)使用，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-07-07
這篇文章主要介紹了MySql?怎么查出符合條件的最新的數(shù)據(jù)行,本文通過示例代碼給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2022-07-07
我們在下載完MYSQL時(shí),安裝可能會(huì)遇到或大或小的問題,下面這篇文章主要給大家介紹了關(guān)于MySQL安裝配置以及安裝失敗解決的相關(guān)資料,文中通過實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下2023-04-04
這篇文章主要為大家介紹了mysql?sock文件存儲(chǔ)了什么信息的內(nèi)容詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-07-07
這篇文章主要介紹了MySQL開啟遠(yuǎn)程連接權(quán)限，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2019-04-04