linux下perl操作mysql数据库(需要安装DBI)
更新时间：2012年05月28日 00:51:55 作者：
有时候需要perl操作mysql数据库，可以通过DBI实现，需要的朋友可以参考下
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();
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查询和修改auto_increment的方法,实例分析了select查询auto_increment及ALTER修改auto_increment的技巧,需要的朋友可以参考下2015-02-02
索引是一个数据结构,索引是帮助MySQL高效获取数据的数据结构(有序),这篇文章主要给大家介绍了关于MySQLJSON索引用法的相关资料,需要的朋友可以参考下2024-01-01
如果item表的name字段为''就用resource_library 表的resource_name字段前面加上字符串Review更新它,他们的关联关系在表resource_review_link中。2011-03-03
Linux(Ubuntu)下mysql5.7.17安装配置方法图文教程
这篇文章主要为大家详细介绍了Linux下mysql5.7.17安装配置方法图文教程，具有一定的参考价值，感兴趣的小伙伴们可以参考一下2017-01-01
MySQL 统计查询其实就是通过SELECT COUNT() FROM 语法用于从数据表中统计数据行数2014-05-05
SQL FOREIGN KEY约束保障表之间关系完整性关键规则详解
这篇文章主要介绍了SQL FOREIGN KEY约束保障表之间关系完整性关键规则详解,有需要的朋友可以借鉴参考下,希望能够有所帮助,祝大家多多进步,早日升职加薪2023-12-12
以下的文章主要介绍的是MySQL使用rand 随机查询记录效率测试，我们大家一直都以为MySQL数据库随机查询的几条数据，就用以下的东东，其实其实际效率是十分低的2011-06-06
最近遇到了一件非常棘手的问题，用Navicat连接MySQL总是出错， 网上查阅了一下原因，最终找到解决方案，好吧，下面我就来回忆一下自己怎么处理这问题的，分享到脚本之家平台需要的朋友参考下吧2021-06-06
本文详细介绍了sql的四种语言，包括数据定义语言（DDL）、数据操作语言（DML）、数据控制语言（DCL）和事物控制语言（TCL）。在这几种语言中有疑惑的可以来看看这篇文章。2016-07-07
如何在Java程序中访问mysql数据库中的数据并进行简单的操作
这篇文章主要介绍了如何在Java程序中访问mysql数据库中的数据并进行简单的操作的相关资料,需要的朋友可以参考下2016-05-05
最新评论