Perl操作mysql数据库的方法

Perl对Mysql的操作。

一、标准操作

1、连接、关闭

my $dbh = DBI->connect(”DBI:mysql:database=DBname;host=localhost”,”user”,”pwd”, {’RaiseError’ => 1});
… …
$dbh->disconnect();

2、类似插入等无返回操作

my $sqr = $dbh->prepare(”insert into table_name(Name,region_id,inuse,url) values (’”.$r_name.”‘,’”.($t+1).”‘,’1′,’”.$r_url.”‘) “);
$sqr->execute();

3、取得自增长的ID

执行插入操作后

my $table_key = $dbh->{’mysql_insertid’};

4、Select操作

my $row;
while ($row = $sqr->fetchrow_arrayref) {
 printf $row->[0].”++”.$row->[1].”\n”;
}

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!