perl mysql dbi_使用Perl DBI操作MySQL的一些建议

使用perl连接mysql，这个网上有很多案例了，一般大家都是dbi下的dbd::mysql这个模块进行．这里做一个mask弄一个tips:

perl dbi mysql的字符集为utf8

perl dbi 特殊字符写入时报错

perl dbi 连接自动重连或是连接超时

１.　当mysql的字符集是utf8时需要引入：

use utf8;

binmode(stdout, ':encoding(utf8)');

binmode(stdin, ':encoding(utf8)');

binmode(stderr, ':encoding(utf8)');

目的:

解决perl连接mysql到数据后读取显示结果为乱码的问题．

２．对于特殊字符的写入，最好使用：

my $sth=$dbh->prepare("insert into wubx.weekevent values(?,?,?,?,?,?,?)");

$sth->execute($oid,$cid,qq/$time/,$eventtype,qq/$cdesc/,$pid,$rflag);

对于字符串有可能是用户提交的用qq//包裹，减少特殊字符造成sql不能执行的情况．

３.　如果连接两个数据库有交换的操作或是迁数据，要考虑连连超时的情况．

报错：　mysql server has gone away

处理办法：

在dbd::mysql 4.012以后支持dbi连接的自动重连．需要设置：

$dbh->{mysql_auto_reconnect} = 1;

在早期的模块中不支持，简单的方法：

$dbh->do('set session wait_timeout=72000');

$dbh->do('set session interactive_timeout=72000')；

此方法适用别的语言连mysql连接短期丢失或是server的timeout时间设置太短．

如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！