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

这篇文章主要介绍了使用Perl DBI操作MySQL的一些建议,针对Perl下连接MySQL的DBD::MySQL这个模块,需要的朋友可以参考下

使用perl连接mysql，这个网上有很多案例了，一般大家都是DBI下的DBD::MySQL这个模块进行.这里做一个mask弄一个TIPS:

Perl DBI MySQL的字符集为UTF8

Perl DBI 特殊字符写入时报错

Perl DBI 连接自动重连或是连接超时

1.　当MySQL的字符集是UTF8时需要引入：

1. use utf8; 
2. binmode(STDOUT, ':encoding(utf8)'); 
3. binmode(STDIN, ':encoding(utf8)'); 
4. binmode(STDERR, ':encoding(utf8)'); 

目的:

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

2.对于特殊字符的写入，最好使用：

1. my $sth=$dbh->prepare("insert into wubx.WeekEvent values(?,?,?,?,?,?,?)"); 
2. $sth->execute($OId,$CId,qq/$Time/,$EventType,qq/$CDesc/,$PId,$RFlag); 

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

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

报错：　MySQL server has gone away

处理办法：

在DBD::mysql 4.012以后支持DBI连接的自动重连.需要设置：

1. $dbh->{mysql_auto_reconnect} = 1; 

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

1. $dbh->do('set SESSION wait_timeout=72000'); 
2. $dbh->do('set SESSION interactive_timeout=72000')； 

此方法适用别的语言连MySQL连接短期丢失或是Server的timeout时间设置太短.