如何用Perl编写代码更新Oracle表，计算DEBIT和CREDIT的累计值与差值？

原代码的核心错误 #

• Perl子例程命名非法：sub running total包含空格，Perl子例程名不允许有空格，必须改为sub running_total。
• HERE文档格式错误：结束标记UPDATESQL必须顶格书写，原代码中它前面有缩进，会导致Perl无法正确识别HERE文档的结束位置。
• Oracle SQL语法错误：
  • 第二个UPDATE里的子查询误用了大括号{，应该替换为小括号(；
  • 窗口函数SUM() OVER()的用法错误，不需要关联子查询，直接在UPDATE中引用窗口函数即可实现累计；
  • 括号不匹配，子查询末尾多了一个冗余的)；
  • SQL关键字where未大写（Oracle不区分大小写，但规范写法能避免歧义）。
• 累计值逻辑可能不符合预期：默认SUM() OVER(ORDER BY settlement_time_stamp)会把相同时间戳的行累计值设为相同值，如果需要严格按行顺序累计（即使时间戳重复），需添加ROWS UNBOUNDED PRECEDING。

修复后的代码 #

sub running_total {
    my $sql = <<'UPDATESQL';
        -- 先计算差值列
        UPDATE liq.ecb_stat s
        SET sum_of_debit_credit = s.debit - s.credit
        WHERE s.sum_of_debit_credit IS NULL;

        -- 再计算累计值列
        UPDATE liq.ecb_stat s
        SET running_total = (
            SELECT SUM(sum_of_debit_credit) OVER(ORDER BY settlement_time_stamp ROWS UNBOUNDED PRECEDING)
            FROM liq.ecb_stat s2
            WHERE s2.rowid = s.rowid
        )
        WHERE s.running_total IS NULL;
UPDATESQL
    -- 需补充执行SQL的代码（示例用DBI模块）：
    # my $dbh = DBI->connect("dbi:Oracle:your_database", "username", "password");
    # $dbh->do($sql) or die $dbh->errstr;
}

补充优化说明 #

1. HERE文档加单引号：<<'UPDATESQL'可避免Perl解析文档内的变量（如$s），防止不必要的插值错误。
2. 用ROWID关联：确保每行的累计值对应自身位置，避免时间戳重复时的累计偏差。
3. 高效替代方案：单次MERGE更新：若Oracle版本支持，可通过MERGE语句同时计算两个列，提升执行效率：

MERGE INTO liq.ecb_stat s
USING (
    SELECT 
        rowid,
        debit - credit AS sum_val,
        SUM(debit - credit) OVER(ORDER BY settlement_time_stamp ROWS UNBOUNDED PRECEDING) AS running_val
    FROM liq.ecb_stat
    WHERE sum_of_debit_credit IS NULL OR running_total IS NULL
) src
ON (s.rowid = src.rowid)
WHEN MATCHED THEN UPDATE SET
    s.sum_of_debit_credit = src.sum_val,
    s.running_total = src.running_val;

内容的提问来源于stack exchange，提问作者ns102030