my ($dbh);QdSLinux联盟
$dbh = &dbCon("$DBType");##数据库链接QdSLinux联盟
QdSLinux联盟
QdSLinux联盟
$dbh->{AutoCommit}=0;QdSLinux联盟
InitDB()；QdSLinux联盟
my $pid = Daemon();##守护进程QdSLinux联盟
QdSLinux联盟
$dbh->disconnect(),if($dbh);
##重新建立连接QdSLinux联盟
$dbh = &dbCon("$DBType");##数据库链接QdSLinux联盟
$dbh->{AutoCommit}=0;QdSLinux联盟
QdSLinux联盟
ScanLog()；QdSLinux联盟
sub InitDB()QdSLinux联盟
{QdSLinux联盟
###using global $dbhQdSLinux联盟
}QdSLinux联盟
sub ScanLog()QdSLinux联盟
{QdSLinux联盟
###using global $dbhQdSLinux联盟
}
| 
