linux下perl操作mysql數(shù)據(jù)庫(需要安裝DBI)
更新時間：2012年05月28日 00:51:55 作者：
有時候需要perl操作mysql數(shù)據(jù)庫，可以通過DBI實現(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)行第三步是可能會出現(xiàn)mysql_config找不到的情況，應(yīng)該是沒有安裝開發(fā)工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
來安裝這兩個包。
其余同上。
完成安裝后就可以利用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)行第三步是可能會出現(xiàn)mysql_config找不到的情況，應(yīng)該是沒有安裝開發(fā)工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
來安裝這兩個包。
其余同上。
完成安裝后就可以利用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)文章
這篇文章主要介紹了MySQL查詢和修改auto_increment的方法,實例分析了select查詢auto_increment及ALTER修改auto_increment的技巧,需要的朋友可以參考下2015-02-02
索引是一個數(shù)據(jù)結(jié)構(gòu),索引是幫助MySQL高效獲取數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)(有序),這篇文章主要給大家介紹了關(guān)于MySQLJSON索引用法的相關(guān)資料,需要的朋友可以參考下2024-01-01
mysql多表join時候update更新數(shù)據(jù)的方法
如果item表的name字段為''就用resource_library 表的resource_name字段前面加上字符串Review更新它,他們的關(guān)聯(lián)關(guān)系在表resource_review_link中。2011-03-03
Linux(Ubuntu)下mysql5.7.17安裝配置方法圖文教程
這篇文章主要為大家詳細(xì)介紹了Linux下mysql5.7.17安裝配置方法圖文教程，具有一定的參考價值，感興趣的小伙伴們可以參考一下2017-01-01
MySQL 統(tǒng)計查詢其實就是通過SELECT COUNT() FROM 語法用于從數(shù)據(jù)表中統(tǒng)計數(shù)據(jù)行數(shù)2014-05-05
SQL?FOREIGN?KEY約束保障表之間關(guān)系完整性關(guān)鍵規(guī)則詳解
這篇文章主要介紹了SQL?FOREIGN?KEY約束保障表之間關(guān)系完整性關(guān)鍵規(guī)則詳解,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進(jìn)步,早日升職加薪2023-12-12
以下的文章主要介紹的是MySQL使用rand 隨機(jī)查詢記錄效率測試，我們大家一直都以為MySQL數(shù)據(jù)庫隨機(jī)查詢的幾條數(shù)據(jù)，就用以下的東東，其實其實際效率是十分低的2011-06-06
最近遇到了一件非常棘手的問題，用Navicat連接MySQL總是出錯， 網(wǎng)上查閱了一下原因，最終找到解決方案，好吧，下面我就來回憶一下自己怎么處理這問題的，分享到腳本之家平臺需要的朋友參考下吧2021-06-06
本文詳細(xì)介紹了sql的四種語言，包括數(shù)據(jù)定義語言（DDL）、數(shù)據(jù)操作語言（DML）、數(shù)據(jù)控制語言（DCL）和事物控制語言（TCL）。在這幾種語言中有疑惑的可以來看看這篇文章。2016-07-07
如何在Java程序中訪問mysql數(shù)據(jù)庫中的數(shù)據(jù)并進(jìn)行簡單的操作
這篇文章主要介紹了如何在Java程序中訪問mysql數(shù)據(jù)庫中的數(shù)據(jù)并進(jìn)行簡單的操作的相關(guān)資料,需要的朋友可以參考下2016-05-05