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();
如果您在文件中發現任何不正確之處、與您對特定功能的實際體驗不符之處，或者需要進一步澄清的內容，請使用 此表單 報告文件問題。