linux下perl操作MySQL数据库(需要安装DBI)
2022-11-12 09:25:08
内容摘要
这篇文章主要为大家详细介绍了linux下perl操作MySQL数据库(需要安装DBI)，具有一定的参考价值，可以用来参考一下。
对此感兴趣的朋友，看看idc笔记做的技术笔记！DBI安装：DBI详细信
文章正文
这篇文章主要为大家详细介绍了linux下perl操作MySQL数据库(需要安装DBI)，具有一定的参考价值，可以用来参考一下。
对此感兴趣的朋友，看看idc笔记做的技术笔记！
DBI安装：DBI详细信息参考：http://dbi.perl.org/1.下载DBI包： wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz2 解压tar xzf DBI-1.620.tar.gz3 进入解压包内，perl Makefile.PL4 make test5 make6 make install (如果不是root用户，要sudo一下）DBD安装：1.下载DBDwget http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.021.tar.gz2. 3. 同上在进行第三步是可能会出现mysql_config找不到的情况，应该是没有安装开发工具包sudo apt-get install libmysqld-devsudo 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)的内容就先介绍到这里，更多相关文章的可以留意
代码注释
作者：喵哥笔记
