日期：2012-06-02 15:06:00 来源：本站整理

linux下perl操作mysql数据库(需求安装DBI)[MySQL防范]

赞助商链接

分享到： QQ空间新浪微博腾讯微博人人网

　　本文“linux下perl操作mysql数据库(需求安装DBI)[MySQL防范]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：
DBI安装:DBI具体信息参考: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 进入解压包内,
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. 同上
在举行第三步是大概会呈现mysql_config找不到的情形,应当是没有安装开辟工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
来安装这两个包.
别的同上.
完成安装后便可以操纵perl脚本举行mysql数据的操作了.
编写perl脚本操作数据库
复制代码代码以下:
#! /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;
# 打印获得的数据
while(@recs=$sth->fetchrow_array){
print $recs[0].":".$recs[1]."\n";
}
$sth->finish();
$dbh->disconnect(); 　　以上是“linux下perl操作mysql数据库(需求安装DBI)[MySQL防范]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：

windows下的近似linux下的grep号令－－findstr

linux下mysql链接被防火墙禁止的办理办法

Linux下mysql新建账号及权限设置办法

SUSE Linux下搭建Web服务器

Windows/Linux MySQL忘掉密码重置密码教程

Linux下Apache自动监测重启脚本（智能化程度较高）

linux备份 linux克隆 linux clone

<b>为什么 Linux不需求碎片整理</b>

CentOS6 yum搭建Linux+Nginx+PHP+MYSQL(LNMP)

Linux系统有效防备ARP攻击

Linux下 Memcache的安装和简单管理

笔记本预装linux重装成windows系统