可以用 PL/Tcl 编写触发器函数。PostgreSQL 要求作为触发器调用的函数必须声明为无参数、返回类型为 trigger 的函数。

触发器管理器的信息通过以下变量传入函数体：

触发器过程的返回值可以是字符串 OK 或 SKIP，也可以是由 Tcl 命令 array get 返回的列表。如果返回值是 OK，引发触发器的操作（INSERT/UPDATE/DELETE）将正常进行。SKIP 告诉触发器管理器静默地抑制这一行的操作。 如果返回值是一个列表，它告诉 PL/Tcl 向触发器管理器返回一个修改后的行。这只对行级 BEFORE INSERT 或 UPDATE 触发器有意义，此时被插入的将是修改后的行，而不是 $NEW 中给出的行；或者对行级 INSTEAD OF INSERT 或 UPDATE 触发器有意义，此时返回的行用于支持 INSERT RETURNING 和 UPDATE RETURNING 命令。 对于其他类型的触发器，返回值会被忽略。

下面是一个简单的触发器函数示例，强制用表中的一个整数值记录该行的更新次数。新插入的行将此值初始化为 0，以后每次更新操作都将其递增。

CREATE FUNCTION trigfunc_modcount() RETURNS trigger AS $$
    switch $TG_op {
        INSERT {
            set NEW($1) 0
        }
        UPDATE {
            set NEW($1) $OLD($1)
            incr NEW($1)
        }
        default {
            return OK
        }
    }
    return [array get NEW]
$$ LANGUAGE pltcl;

CREATE TABLE mytab (num integer, description text, modcnt integer);

CREATE TRIGGER trig_mytab_modcount BEFORE INSERT OR UPDATE ON mytab
    FOR EACH ROW EXECUTE PROCEDURE trigfunc_modcount('modcnt');

注意，触发器函数本身不知道列名，列名通过触发器参数提供。这样，同一个触发器函数就可以在不同表上复用。