# 41.6\. PL/Tcl里的触发器过程 触发器过程可以用 PL/Tcl 写。PostgreSQL 要求当做触发器调用的过程必需声明为没有参数并且返回类型为`trigger`的函数。 触发器管理器传递给过程体的信息是通过下面变量传递的： `$TG_name` `CREATE TRIGGER`语句里的触发器名称。 `$TG_relid` 导致触发器被调用的表的对象 ID 。 `$TG_table_name` 导致触发器被调用的表的名字。 `$TG_table_schema` 导致触发器被调用的表的模式。 `$TG_relatts` 以一个空表元素为前导的表中字段名称的 Tcl 列表。所以用Tcl命令`lsearch` 在列表里查找元素名称时，返回的从 1 开始计数的正整数，与PostgreSQL 里字段编号的传统一样。已经被删除掉的字段位置的空的列表元素仍然会出现，这样， 属性编号与字段的对应就是正确的。 `$TG_when` 由触发器事件类型决定的字符串`BEFORE`, `AFTER` 或 `INSTEAD OF` `$TG_level` 由触发器事件类型决定的字符串`ROW`或`STATEMENT` `$TG_op` 由触发器事件类型决定的字符串`INSERT`, `UPDATE`, `DELETE`或`TRUNCATE` `$NEW` 一个关联数组，包含`INSERT`或`UPDATE`动作的新表行值， 如果是`DELETE`则为空。该数组是用字段名做索引的。那些为空的字段不会在数组中出现。 这不是为语句级别的触发器设置的。 `$OLD` 一个关联数组，包含`UPDATE`或`DELETE`动作的新表行， 如果是`INSERT`则为空。该数组是用字段名做索引的。那些为空的字段不会在数组中出现。 这不是为语句级别的触发器设置的。 `$args` 如同在`CREATE TRIGGER`语句里给出的参数一样的 Tcl 程序参数表。 这些参数在过程体里可以通过`$1` ... `$``_n_` 来访问。 触发器过程返回的值是字符串`OK`或`SKIP`之一，或者一个像`array get` Tcl 命令返回的数组那样的东西。如果返回值是`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'); ``` 请注意触发器过程本身并不知道字段名字；那些是从触发器参数中提供的。 这样就可以让将触发器过程复用于不同的表。