PL/Perlを使用してトリガ関数を作成する意ことができます。
トリガ関数では、$_TDというハッシュへの参照に、現在のトリガイベントに関する情報が含まれています。
以下に$_TDというハッシュへの参照のフィールドを示します。
現在、$_TDハッシュ参照を使用することで、トリガ関数の作成にPL/Perlを使用することができます。
NEWのfoo列値。
OLDのfoo列値。
呼び出されたトリガの名前。
トリガイベント。 INSERT、UPDATE、DELETE、もしくはUNKNOWN。
トリガがいつ呼び出されたか。 BEFORE、AFTER、もしくはUNKNOWN。
トリガレベル。 ROW、STATEMENT、もしくはUNKNOWN。
トリガの発行元テーブルのOID。
トリガの発行元テーブルの名前。
トリガ関数の引数の数。
トリガ関数の引数。 $_TD->{argc}が0の場合は存在しません。
トリガは以下のいずれかを返すことができます。
文を実行します。
文を実行しません。
トリガ関数によって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 PROCEDURE valid_id();