最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

linux下perl操作mysql數(shù)據(jù)庫(kù)(需要安裝DBI)

 更新時(shí)間:2012年05月28日 00:51:55   作者:  
有時(shí)候需要perl操作mysql數(shù)據(jù)庫(kù),可以通過(guò)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)該是沒(méi)有安裝開(kāi)發(fā)工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
來(lái)安裝這兩個(gè)包。
其余同上。
完成安裝后就可以利用perl腳本進(jìn)行mysql數(shù)據(jù)的操作了。
編寫perl腳本操作數(shù)據(jù)庫(kù)
復(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)文章

最新評(píng)論

汉源县| 饶阳县| 五原县| 长治市| 泽州县| 汕尾市| 虞城县| 呼玛县| 叶城县| 永城市| 新营市| 克山县| 靖西县| 娄烦县| 武义县| 蒙自县| 苏州市| 林州市| 揭阳市| 大港区| 云霄县| 苍山县| 罗平县| 台中市| 建平县| 句容市| 绥滨县| 勃利县| 丹阳市| 五台县| SHOW| 佳木斯市| 上林县| 东兰县| 分宜县| 哈尔滨市| 明溪县| 扎赉特旗| 桦甸市| 台中市| 渝中区|