42.6. PL/Perl 觸發器 · PostgreSQL 中文文檔 9.3

# 42.6\. PL/Perl 觸發器 PL/Perl 可以用來書寫觸發器函數。在一個觸發器函數中，散列引用`$_TD` 包含了當前觸發事件的信息。`$_TD`是一個全局變量，它對于每次觸發器調用都能夠獲取一個局部值。`$_TD`散列引用的字段有： `$_TD->{new}{foo}` 字段`foo`的`NEW`值 `$_TD->{old}{foo}` 字段`foo`的`OLD`值 `$_TD->{name}` 被調用的觸發器的名字 `$_TD->{event}` 觸發器事件：`INSERT`, `UPDATE`, `DELETE`, `TRUNCATE`, 或 `UNKNOWN` `$_TD->{when}` 何時調用觸發器：`BEFORE`, `AFTER`, `INSTEAD OF`, 或 `UNKNOWN` `$_TD->{level}` 觸發器的級別： `ROW`, `STATEMENT`, 或 `UNKNOWN` `$_TD->{relid}` 觸發觸發器的表的 OID `$_TD->{table_name}` 觸發觸發器的表的名字 `$_TD->{relname}` 觸發觸發器的表的名字。已經廢棄了，并且可能在將來的版本中移除。請使用$_TD->{table_name}。 `$_TD->{table_schema}` 觸發觸發器的表的模式名 `$_TD->{argc}` 觸發器函數的參數個數 `@{$_TD->{args}}` 觸發器函數的參數，如果`$_TD->{argc}`為 0 則不存在。行級別的觸發器返回下列之一： `return;` 執行該操作 `"SKIP"` 不執行該操作 `"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"; #跳過 INSERT/UPDATE 命令 } elsif ($_TD->{new}{v} ne "immortal") { $_TD->{new}{v} .= "(modified by trigger)"; return "MODIFY"; #修改一行并且執行 INSERT/UPDATE 命令 } else { return; # 執行 INSERT/UPDATE 命令 } $$ LANGUAGE plperl; CREATE TRIGGER test_valid_id_trig BEFORE INSERT OR UPDATE ON test FOR EACH ROW EXECUTE PROCEDURE valid_id(); ```