# 45.7.PL/Perl事件触发器

PL/Perl可用于编写事件触发器函数。在事件触发器函数中,哈希引用$\u TD包含有关当前触发器事件的信息。$\u TD是一个全局变量,它为触发器的每次调用获取一个单独的局部值。大地$\u TD哈希引用是:

$_TD->{event}

触发触发器的事件的名称。

$\u 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 FUNCTION perlsnitch();