Postgresql 中文操作指南

45.6. PL/Perl Triggers #

PL/Perl 可以用来编写触发函数。在触发函数中,哈希引用 $_TD 包含关于当前触发事件的信息。$_TD 是一个全局变量,它会为触发器的每次调用获取一个单独的局部值。$_TD 哈希引用的域为:

  • $_TD→{new}{foo}

    • NEWfoo 的值

  • $_TD→{old}{foo}

    • OLDfoo 的值

  • $_TD→{name}

    • 正在调用的触发器的名称

  • $_TD→{event}

    • 触发器事件:INSERTUPDATEDELETETRUNCATEUNKNOWN

  • $_TD→{when}

    • 当触发器被调用时:BEFOREAFTERINSTEAD OFUNKNOWN

  • $_TD→{level}

    • 触发器级别:ROWSTATEMENTUNKNOWN

  • $_TD→{relid}

    • 触发器触发的表的 OID

  • $_TD→{table_name}

    • 触发器触发的表的名称

  • $_TD→{relname}

    • 触发器触发的表的名称。这已被弃用,将来可能移除。请改用 $_TD→{table_name}。

  • $_TD→{table_schema}

    • 触发器触发的表所在架构的名称

  • $_TD→{argc}

    • 触发器函数的参数数量

  • @{$_TD→{args}}

    • 触发器函数的参数。如果 $_TD→{argc} 为 0,就不存在。

行级触发器可以返回以下任一内容:

  • return;

    • Execute the operation

  • "SKIP"

    • Don’t execute the operation

  • "MODIFY"

    • 表明 NEW 行已被触发器函数修改

以下是一个触发器函数的示例,展示了以上部分内容:

CREATE TABLE test (
    i int,
    v varchar
);

CREATE OR REPLACE FUNCTION valid_id() RETURNS trigger AS $$
    if (($_TD->{new}{i} >= 100) || ($_TD->{new}{i} <= 0)) {
        return "SKIP";    # skip INSERT/UPDATE command
    } elsif ($_TD->{new}{v} ne "immortal") {
        $_TD->{new}{v} .= "(modified by trigger)";
        return "MODIFY";  # modify row and execute INSERT/UPDATE command
    } else {
        return;           # execute INSERT/UPDATE command
    }
$$ LANGUAGE plperl;

CREATE TRIGGER test_valid_id_trig
    BEFORE INSERT OR UPDATE ON test
    FOR EACH ROW EXECUTE FUNCTION valid_id();