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脚本操作数据库代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | <code> #! /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(); </code> |
注:关于linux下perl操作MySQL数据库(需要安装DBI)的内容就先介绍到这里,更多相关文章的可以留意
代码注释