事件触发器函数也可以用 PL/Tcl 编写。PostgreSQL要求，凡是要作为事件触发器调用的函数，都必须声明为无参数且返回类型为event_trigger。
来自触发器管理器的信息会通过下列变量传递给函数体：
$TG_event触发器因其而被触发的事件名称。
$TG_tag触发器因其而被触发的命令标签。
事件触发器函数的返回值会被忽略。
下面是一个小型事件触发器函数示例。每当执行受支持的命令时，它都会简单地发出一条NOTICE消息：
CREATE OR REPLACE FUNCTION tclsnitch() RETURNS event_trigger AS $$ elog NOTICE "tclsnitch: $TG_event $TG_tag" $$ LANGUAGE pltcl; CREATE EVENT TRIGGER tcl_a_snitch ON ddl_command_start EXECUTE FUNCTION tclsnitch();
如果您发现文档中有不正确的内容、与您使用特定功能的经验不符或需要进一步说明，请使用此表单来报告文档问题。