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

2024-07-24 12:46:05

字體：大中小

供稿：網(wǎng)友

使用perl連接mysql，這個(gè)網(wǎng)上有很多案例了，一般大家都是DBI下的DBD::MySQL這個(gè)模塊進(jìn)行．這里做一個(gè)mask弄一個(gè)TIPS:
Perl DBI MySQL的字符集為UTF8
Perl DBI 特殊字符寫(xiě)入時(shí)報(bào)錯(cuò)
Perl DBI 連接自動(dòng)重連或是連接超時(shí)

１.　當(dāng)MySQL的字符集是UTF8時(shí)需要引入：

use utf8;binmode(STDOUT, ':encoding(utf8)');binmode(STDIN, ':encoding(utf8)');binmode(STDERR, ':encoding(utf8)');

目的:
解決perl連接mysql到數(shù)據(jù)后讀取顯示結(jié)果為亂碼的問(wèn)題．

２．對(duì)于特殊字符的寫(xiě)入，最好使用：

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

對(duì)于字符串有可能是用戶提交的用qq//包裹，減少特殊字符造成SQL不能執(zhí)行的情況．
３.　如果連接兩個(gè)數(shù)據(jù)庫(kù)有交換的操作或是遷數(shù)據(jù)，要考慮連連超時(shí)的情況．
報(bào)錯(cuò)：　MySQL server has gone away
　　處理辦法：
在DBD::mysql 4.012以后支持DBI連接的自動(dòng)重連．需要設(shè)置：

$dbh->{mysql_auto_reconnect} = 1;

在早期的模塊中不支持，簡(jiǎn)單的方法：

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

此方法適用別的語(yǔ)言連MySQL連接短期丟失或是Server的timeout時(shí)間設(shè)置太短．