44.7. PL/Perl 事件触发器

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();