MySQL操作程序七
返回
檢查enq1和enq2的關(guān)系(check_enq1_enq2.pl)
<![CDATA[
use strict;
use DBI;
my(%t,$n,@fld,@rec,$pref);
# 連接數(shù)據(jù)庫
$$pref{dsn} = "DBI:mysql:host=localhost;database=cookbook";
$$pref{dbh} = DBI->connect($$pref{dsn}, "cbuser", "cbpass") or die "Cannot connect to server\n";
$$pref{dbh}->do("SET NAMES utf8");
if(!$$pref{dbh}){
print "SQL read ERROR!\n";
exit;
}
# 取出所有enq1的enq2s
$t{sth} = $$pref{dbh}->prepare("SELECT id,enq2s FROM enq1");
$t{sth}->execute;
while ( @rec = $t{sth}->fetchrow_array ) {
@{ $t{enq2} } = split(/=/,$rec[1]);
for $n ( 0 .. $#{ $t{enq2} } ) {
if ( $t{list}{$t{enq2}[$n]} ) {
print "NO,enq1=$rec[0],enq2=$t{enq2}[$n]\n";
} else {
$t{list}{$t{enq2}[$n]} = $rec[0];
}
}
}
$t{sth}->finish;
# 檢查取出的enq2的enq1id
for $n ( sort {$a<=>$b} keys %{ $t{list} } ) {
$t{enq1} = $$pref{dbh}->selectrow_array("SELECT enq1id FROM enq2 WHERE id = $n");
if ($t{enq1} == $t{list}{$n} ) {
# print "$n==>$t{list}{$n}=>$t{enq1},OK!\n";
} else {
print "$n==>$t{list}{$n}=>$t{enq1},NOT OK!\n";
}
}
# 關(guān)閉數(shù)據(jù)庫
$$pref{dbh}->disconnect;
]]>
返回
苏尼特左旗|
兴宁市|
兰考县|
武功县|
碌曲县|
昌吉市|
临朐县|
开化县|
金寨县|
西畴县|
息烽县|
米林县|
永顺县|
宣恩县|
乐安县|
江西省|
奉化市|
呼伦贝尔市|
镇康县|
内乡县|
铅山县|
长岭县|
稻城县|
哈尔滨市|
大同县|
玉溪市|
辽宁省|
衡南县|
厦门市|
巴马|
汤阴县|
江达县|
清徐县|
宕昌县|
瓦房店市|
阆中市|
德钦县|
黄大仙区|
清徐县|
乌拉特后旗|
二连浩特市|