PL/Perl 可用於編寫觸發函數。在觸發函數中，雜湊參考 $_TD 包含有關目前觸發事件的資訊。$_TD 是一個全域變數，每次呼叫觸發器時都會取得一個單獨的本機值。$_TD 雜湊參考的欄位如下：
$_TD->{new}{foo}欄位 foo 的 NEW 值
$_TD->{old}{foo}欄位 foo 的 OLD 值
$_TD->{name}正在呼叫的觸發器名稱
$_TD->{event}觸發事件：INSERT、UPDATE、DELETE、TRUNCATE 或 UNKNOWN
$_TD->{when}呼叫觸發器的時間：BEFORE、AFTER、INSTEAD OF 或 UNKNOWN
$_TD->{level}觸發器層級：ROW、STATEMENT 或 UNKNOWN
$_TD->{relid}觸發器觸發的資料表 OID
$_TD->{table_name}觸發器觸發的資料表名稱
$_TD->{relname}觸發器觸發的資料表名稱。此欄位已被棄用，並可能在未來版本中移除。請改用 $_TD->{table_name}。
$_TD->{table_schema}觸發器觸發的資料表所屬的綱要名稱
$_TD->{argc}觸發函數的參數數量
@{$_TD->{args}}觸發函數的參數。如果 $_TD->{argc} 為 0，則不存在。
列層級觸發器可以傳回以下其中之一：
return;執行操作
"SKIP"不要執行操作
"MODIFY"表示 NEW 列已由觸發函數修改
以下是一個觸發函數的範例，說明了上述部分內容：
CREATE TABLE test (
i int,
v varchar
);
CREATE OR REPLACE FUNCTION valid_id() RETURNS trigger AS $$
if (($_TD->{new}{i} >= 100) || ($_TD->{new}{i} <= 0)) {
return "SKIP"; # skip INSERT/UPDATE command
} elsif ($_TD->{new}{v} ne "immortal") {
$_TD->{new}{v} .= "(modified by trigger)";
return "MODIFY"; # modify row and execute INSERT/UPDATE command
} else {
return; # execute INSERT/UPDATE command
}
$$ LANGUAGE plperl;
CREATE TRIGGER test_valid_id_trig
BEFORE INSERT OR UPDATE ON test
FOR EACH ROW EXECUTE FUNCTION valid_id();
如果您在文件中發現任何不正確、與特定功能的使用體驗不符或需要進一步闡明的地方，請使用此表格來報告文件問題。