预发布版本文档。 PostgreSQL 19beta4 为测试版本，最终发布内容可能有所不同。
43.7. PL/Perl 事件触发器 #
PL/Perl 可用于编写事件触发器函数。在事件触发器函数中，hash 引用
$_TD 包含有关当前触发器事件的信息。$_TD 是一个全局变量，对触发器的每一次调用都会得到一个单独的局部值。$_TD hash 引用包含以下字段：
触发器函数的返回值会被忽略。
下面是一个事件触发器函数示例，用于说明上述部分内容：
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();