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')");

……

……

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