使用Perl DBI操作MySQL的一些建议
使用perl连接mysql，这个网上有很多案例了，一般大家都是DBI下的DBD::MySQL这个模块进行．这里做一个mask弄一个TIPS:
PerlDBIMySQL的字符集为UTF8
PerlDBI特殊字符写入时报错
PerlDBI连接自动重连或是连接超时
１.当MySQL的字符集是UTF8时需要引入：
useutf8; binmode(STDOUT,':encoding(utf8)'); binmode(STDIN,':encoding(utf8)'); binmode(STDERR,':encoding(utf8)');
目的:
解决perl连接mysql到数据后读取显示结果为乱码的问题．
２．对于特殊字符的写入，最好使用：
my$sth=$dbh->prepare("insertintowubx.WeekEventvalues(?,?,?,?,?,?,?)");
$sth->execute($OId,$CId,qq/$Time/,$EventType,qq/$CDesc/,$PId,$RFlag);
对于字符串有可能是用户提交的用qq//包裹，减少特殊字符造成SQL不能执行的情况．
３.如果连接两个数据库有交换的操作或是迁数据，要考虑连连超时的情况．
报错：MySQLserverhasgoneaway
处理办法：
在DBD::mysql4.012以后支持DBI连接的自动重连．需要设置：
$dbh->{mysql_auto_reconnect}=1;
在早期的模块中不支持，简单的方法：
$dbh->do('setSESSIONwait_timeout=72000');
$dbh->do('setSESSIONinteractive_timeout=72000')；
此方法适用别的语言连MySQL连接短期丢失或是Server的timeout时间设置太短．