linux下perl操作mysql数据库(需要安装DBI)
9c8832,亚洲成人电视台,酒杯架
dbi安装:dbi详细信息参考:
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();
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
-
MySQL日期加减函数详解
1. addtime() 为日期加上指定秒数select addtime(now(),1); -- 加1秒2. adddate() 有两种用法,第二个参数直...
[阅读全文]
-
mysql累加计算实现方法详解
本文实例讲述了mysql累加计算。分享给大家供大家参考,具体如下:前言接了一个需求,产品想分析一下用户增长的曲线。也就是某个时间段的每日总人数列表。好对近期活动...
[阅读全文]
-
-
MySQL分区表的最佳实践指南
前言:分区是一种表的设计模式,通俗地讲表分区是将一大表,根据条件分割成若干个小表。但是对于应用程序来讲,分区的表和没有分区的表是一样的。换句话来讲,分区对于应用...
[阅读全文]
-
-
-
网友评论