使用perl连接mysql,这个网上有很多案例了,一般大家都是DBI下的DBD::MySQL这个模块进行.这里做一个mask弄一个TIPS: Perl DBI MySQL的字符集为UTF8 Perl DBI 特殊字符写入时报错 Perl DBI 连接自动重连或是连接超时 1. 当MySQL的字符集是UTF8时需要引入: ? 1234useutf8;binmode(STDOUT,':encoding(utf8)');binmode(STDIN,':encoding(utf8)');binmode(STDERR,':encoding(utf8)'); 目的: 解决perl连接mysql到数据后读取显示结果为乱码的问题. 2.对于特殊字符的写入,最好使用: ? 12my $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连接的自动重连.需要设置: ? 1$dbh- = 1; 在早期的模块中不支持,简单的方法: ? 12$dbh-do('set SESSION wait_timeout=72000');$dbh-do('set SESSION interactive_timeout=72000'); 此方法适用别的语言连MySQL连接短期丢失或是Server的timeout时间设置太短. |
|
来自: AnonymousV脸 > 《手机电脑类知识的文章》