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;
]]>
返回
巍山|
溧阳市|
连平县|
灯塔市|
天水市|
原平市|
黄龙县|
东兴市|
永登县|
上思县|
巴楚县|
伊金霍洛旗|
东至县|
蒲城县|
邢台县|
宁化县|
吉隆县|
吉木萨尔县|
柘城县|
砀山县|
兰西县|
常州市|
丹阳市|
东安县|
钟山县|
乐都县|
绥棱县|
南丰县|
宕昌县|
安泽县|
固安县|
樟树市|
康乐县|
阜城县|
通城县|
凤庆县|
清原|
阳春市|
获嘉县|
乌审旗|
仪征市|