PL/Perl можно использовать для написания триггерных функций. В триггерной функции хеш-массив $_TD содержит информацию о произошедшем событии триггера. $_TD — глобальная переменная, которая получает нужное локальное значение при каждом вызове триггера. Хеш-массив $_TD содержит следующие поля:
$_TD->{new}{foo}Новое значение столбца foo
$_TD->{old}{foo}Старое значение столбца foo
$_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"; # пропустить команду INSERT/UPDATE
} elsif ($_TD->{new}{v} ne "immortal") {
$_TD->{new}{v} .= "(modified by trigger)";
return "MODIFY"; # изменить строку и выполнить команду INSERT/UPDATE
} else {
return; # выполнить команду INSERT/UPDATE
}
$$ LANGUAGE plperl;
CREATE TRIGGER test_valid_id_trig
BEFORE INSERT OR UPDATE ON test
FOR EACH ROW EXECUTE FUNCTION valid_id();