使用perl连接mysql，这个网上有很多案例了，一般大家都是DBI下的DBD::MySQL这个模块进行．这里做一个mask弄一个TIPS:
Perl DBI MySQL的字符集为UTF8
Perl DBI 特殊字符写入时报错
Perl DBI 连接自动重连或是连接超时
１. 当MySQL的字符集是UTF8时需要引入：
?
| 1234 | use utf8;binmode(STDOUT, ':encoding(utf8)');binmode(STDIN, ':encoding(utf8)');binmode(STDERR, ':encoding(utf8)'); |
目的:
解决perl连接mysql到数据后读取显示结果为乱码的问题．
２．对于特殊字符的写入，最好使用：
?
| 12 | 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连接的自动重连．需要设置：
?
| 1 | $dbh->{mysql_auto_reconnect} = 1; |
在早期的模块中不支持，简单的方法：
?
| 12 | $dbh->do('set SESSION wait_timeout=72000');$dbh->do('set SESSION interactive_timeout=72000')； |
此方法适用别的语言连MySQL连接短期丢失或是Server的timeout时间设置太短．
點(diǎn)擊查看更多內(nèi)容
為 TA 點(diǎn)贊
評(píng)論
評(píng)論
共同學(xué)習(xí)，寫下你的評(píng)論
評(píng)論加載中...
作者其他優(yōu)質(zhì)文章
正在加載中
感謝您的支持，我會(huì)繼續(xù)努力的～
掃碼打賞，你說(shuō)多少就多少
贊賞金額會(huì)直接到老師賬戶
支付方式
打開(kāi)微信掃一掃，即可進(jìn)行掃碼打賞哦