使用perl连接mysql,这个网上有很多案例了,一般大家都是DBI下的DBD::MySQL这个模块进行.这里做一个mask弄一个TIPS:
Perl DBI MySQL的字符集为UTF8
Perl DBI 特殊字符写入时报错
Perl DBI 连接自动重连或是连接超时
1. 当MySQL的字符集是UTF8时需要引入:
use utf8; binmode(STDOUT, ':encoding(utf8)'); binmode(STDIN, ':encoding(utf8)'); binmode(STDERR, ':encoding(utf8)');
目的:
解决perl连接mysql到数据后读取显示结果为乱码的问题.
2.对于特殊字符的写入,最好使用:
my $sth=$dbh->prepare("insert into wubx.WeekEvent values(?,?,?,?,?,?,?)"); $sth->execute($OId,$CId,qq/$Time/,$EventType,qq/$CDesc/,$PId,$RFlag);
对于字符串有可能是用户提交的用qq//包裹,减少特殊字符造成SQL不能执行的情况.
3. 如果连接两个数据库有交换的操作或是迁数据,要考虑连连超时的情况.
报错: 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时间设置太短.
声明:本文内容来源于网络,版权归原作者所有,内容由互联网用户自发贡献自行上传,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任。如果您发现有涉嫌版权的内容,欢迎发送邮件至:notice#nhooo.com(发邮件时,请将#更换为@)进行举报,并提供相关证据,一经查实,本站将立刻删除涉嫌侵权内容。