PERL,执行ORACLE存储过程.
just
posted @ 2008年12月20日 20:41
in 脚本
, 1511 阅读
$dbh->do("
BEGIN
procName;
END;
");
BEGIN
procName;
END;
");
多谢 beckheng 和 Justin
#一下是个例子
use DBI;
$dbname="XXTDB"; #数据库名称
$user="scott"; #用户名
$passwd="xxt"; #密码
$dbh="";
print "------------------------------------------\n";
print " by kuaidao \n";
print " e-mail: maxiaodou at 126.com \n";
print "------------------------------------------\n";
print "connect the db $dbname.....\n";
#连接数据库
$dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect todatabase ". DBI-errstr;
#开始执行存储过程 REP_MAP
$dbh->do("
BEGIN
REP_MAP;
END;
");
$dbh->disconnect;
print " ok DB disconnect\n"
$dbname="XXTDB"; #数据库名称
$user="scott"; #用户名
$passwd="xxt"; #密码
$dbh="";
print "------------------------------------------\n";
print " by kuaidao \n";
print " e-mail: maxiaodou at 126.com \n";
print "------------------------------------------\n";
print "connect the db $dbname.....\n";
#连接数据库
$dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect todatabase ". DBI-errstr;
#开始执行存储过程 REP_MAP
$dbh->do("
BEGIN
REP_MAP;
END;
");
$dbh->disconnect;
print " ok DB disconnect\n"
2022年9月22日 00:45
NCERT Sample Paper 2023 Pdf Download for 1st, 2nd, 3rd, 4th, 5th, 7th, 8th, 9th, 10th, 11th & 12th Standard Sample Pape Suggestions for Hindi Medium, English Medium & Urdu Medium students studying at CBSE, KVS, NCERT Question Paper Pdf Download JNV and other Central & State Education Boards of the Countr.NCERT Sample Paper 2023 Pdf Download for 1st, 2nd, 3rd, 4th, 5th, 7th, 8th, 9th, 10th, 11th & 12th Standard Sample Pape Suggestions for Hindi Medium, English Medium & Urdu Medium students studying at CBSE, KVS, JNV and other Central & State Education Boards of the Country…