触发器过程可以用 PL/Tcl 写。PostgreSQL 要求当做触发器调用的过程必需声明为没有参数并且返回类型为 trigger 的函数。
触发器管理器传递给过程体的信息是通过下面变量传递的:
CREATE TRIGGER 语句里的触发器名称。
导致触发器被调用的表的对象 ID 。
导致触发器被调用的表的名字。
导致触发器被调用的表的模式。
以一个空表元素为前导的表中字段名称的 Tcl 列表。所以用 Tcl 命令 lsearch
在列表里查找元素名称时,返回的从 1 开始计数的正整数,与 PostgreSQL 里字段编号的传统一样。已经被删除掉的字段位置的空的列表元素仍然会出现,这样,属性编号与字段的对应就是正确的。
由触发器调用事件决定的字符串 BEFORE 或 AFTER
由触发器调用事件决定的字符串 ROW 或 STATEMENT
由触发器调用事件决定的字符串 INSERT, UPDATE, DELETE
一个关联数组,包含 INSERT 或 UPDATE 动作的新表行,如果是 DELETE 则为空。该数组是用字段名做索引的。那些为空的字段不会在数组中出现。
一个关联数组,包含 UPDATE 或 DELETE 动作的新表行,如果是 INSERT 则为空。该数组是用字段名做索引的。那些为空的字段不会在数组中出现。
如同在 CREATE TRIGGER 语句里给出的参数一样的 Tcl 参数表。这些参数在过程体里可以通过 $1 ... $n 来访问。
触发器过程返回的值是字符串 OK 或 SKIP 之一,或者一个像 array get Tcl 命令返回的数组那样的东西。如果返回值是 OK ,触发触发器的操作(INSERT/UPDATE/DELETE)将会正常进行。SKIP 告诉触发器管理器不声不响地忽略该行的操作。如果返回一个数组,那么它告诉 PL/Tcl 返回一个修改后的行给触发器管理器,该行将代替在 $NEW(只在 INSERT 和 UPDATE 中起作用)中给出的行。当然,这些只有在触发器是 BEFORE 和 FOR EACH ROW 时才有意义;否则返回值将被忽略。
下面是一个小的触发器过程的例子,它强制表内的一个整数值对行的更新次数进行跟踪。对插入的新行,该值初始化为 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');
请注意触发器过程本身并不知道字段名字;那些是从触发器参数中提供的。这样就让可以将触发器过程复用于不同的表。