43.6. Триггеры на PL/Perl #
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();