PL/Perl 可以被用来编写事件触发器函数。在事件触发器函数中,哈希引用
$_TD
包含有关当前触发器事件的信息。
$_TD
是一个全局变量,对触发器的每一次调用它都会
得到一个独立的本地值。$_TD
哈希引用的域有:
$_TD->{event}
触发器为其触发的事件名称。
$_TD->{tag}
触发器为其触发的命令标签。
触发器过程的返回值会被忽略。
这里是一个事件触发器函数的例子,展示了上文所说的一些东西:
CREATE OR REPLACE FUNCTION perlsnitch() RETURNS event_trigger AS $$ elog(NOTICE, "perlsnitch: " . $_TD->{event} . " " . $_TD->{tag} . " "); $$ LANGUAGE plperl; CREATE EVENT TRIGGER perl_a_snitch ON ddl_command_start EXECUTE PROCEDURE perlsnitch();