perl对mysql的操作

http://blog.chinaunix.net/uid-24608128-id-2117953.html

perl对mysql的查询：

使用DBI模块。

DBD::mysql:"DBI:mysql:database=$dbname;host=$hostname;port=$port";

一个通过DBI执行的简单查询包括四部分：

1、准备阶段。

2、执行阶段。

3、数据抽取阶段。

4、完成阶段。

来做简单的一个例子：

 

#!/usr/bin/perl -w use strict; use DBI; my $dsn = "DBI:mysql:database=lybtest;host=localhost"; my $user = 'root'; my $password = '123456'; my ($dbh,$sth,@ary); $dbh = DBI->connect($dsn,$user,$password);       #连接数据库 $sth = $dbh->prepare("select * from tbname");   #准备 $sth->execute();                                 #执行 while(@ary = $sth->fetchrow_array()){ print join("\t",@ary),"\n"; }                                                #打印抽取结果 $sth->finish;                                    #结束句柄 $dbh->disconnect;                                #断开

注： fetchrow_array ()抽取方法的返回是一个包含查询结果的数组。还有其它方法：

fetchrow_arrayref ()返回一个数组引用。

fetchrow_hashref ()返回散列引用。

用perl对mysql的非查询操作就简单多了。

 

 

#!/usr/bin/perl -w use strict; use DBI; my $dbh = DBI->connect("DBI:mysql:database=lybtest;host=localhost","root","123456"); my $rows = $dbh->do("insert into tbname(id,name,age) values('1','test',,'27')"); …… ……

这样就可以把某文件的内容按不同的格式插入到数据库了。