我曾经使用 Perl 运行普通查询，例如（select & insert & update & delete），并在查询末尾跳过插入分号并与我一起工作，但目前我必须更自豪地运行 oracle，但正如你所知，产品有时包含N个分号，对此有什么想法吗？
$dbh = DBI->connect($dsh,$login,$password,{ RaiseError => 1, AutoCommit => 0} ) or die "Database connection not made: $DBI::errstr";
unless($dbh){
warn "Unable to connect to Oracle ($DBI::errstr)\nTests skiped.\n";
print "1..0\n";
exit 0;}
$dbh->do("ALTER SESSION SET NLS_NUMERIC_CHARACTERS = '.,'");
print localtime() ."............ Database connected sucessfully .............\n\n";
$sth2 = $dbh->prepare("
DECLARE
CURSOR coid_to_patch
IS
SELECT SIM.CO_ID,
PADV.SNCODE,
PADV.ADV_CHARGE,
SIM.BEFORE_TAX_AMT,
PADV.ADV_CHARGE_END_DATE,
PADV.ADV_CHARGE + SIM.BEFORE_TAX_AMT NEW_ADV_CHRG,
CA.CUSTOMER_ID,
NVL (CU.CUSTOMER_ID_HIGH, CA.CUSTOMER_ID) CALCULATED_CUSTID,
TMB1.TMCODE,
TMB1.VSCODE,
SIM.MARKET_CODE
FROM sysadm.SIMULATION_FROM_BSCS_EBLON SIM,
PROFILE_SERVICE_ADV_CHARGE PADV,
CUSTOMER_ALL CU,
CONTRACT_ALL CA,
MPULKTMB TMB1
WHERE SIM.CO_ID = PADV.CO_ID
AND SIM.CO_STATUS <> 'a'
AND PADV.ADV_CHARGE > 0
AND SIM.CO_ID = CA.CO_ID
AND CA.CUSTOMER_ID = CU.CUSTOMER_ID
AND CA.TMCODE = TMB1.TMCODE
AND TMB1.VSCODE = (SELECT MAX (VSCODE)
FROM MPULKTMB TMB2
WHERE TMB2.TMCODE = TMB1.TMCODE)
AND PADV.SNCODE = TMB1.SNCODE
AND TMB1.INTERVAL = 12
AND (PADV.ADV_CHARGE + SIM.BEFORE_TAX_AMT) >= 0
ORDER BY 6 ASC;
BEGIN
FOR cur IN coid_to_patch
LOOP
UPDATE PROFILE_SERVICE_ADV_CHARGE
SET ADV_CHARGE = CUR.NEW_ADV_CHRG,
ADV_CHARGE_ITEM_PRICE = CUR.NEW_ADV_CHRG
WHERE CO_ID = CUR.CO_ID AND SNCODE = CUR.SNCODE AND ADV_CHARGE > 0;
COMMIT;
dbms_output.put_line (
'Refund terminated for CoId: '
|| CUR.CO_ID
|| ' on Sncode : '
|| CUR.SNCODE);
END LOOP;
END;
")or die "Couldn't prepare statement: " . $dbh->errstr;
$sth2->execute() or die "SQL Error: $DBI::errstr\n";
$sth2->finish;
print localtime() ."..........Closed..........\n\n";
$dbh->commit;
$dbh->disconnect;
exit;