pl/perl을 사용하여 사설 토토 함수를 작성할 수 있습니다. 사설 토토 함수에서 해시 참조$ _td현재 사설 토토 이벤트에 대한 정보가 포함되어 있습니다.$ _td는 전역 변수이며 사설 토토의 호출마다 별도의 로컬 값을 얻습니다. 의 필드$ _td해시 참조는 다음과 같습니다.
NEW열의 값foo
old열의 가치foo
사설 토토의 이름으로 호출
사설 토토 이벤트 :삽입, 업데이트, 삭제, Truncate또는알 수없는
방아쇠가 호출되었을 때 :전, 이후, 대신또는알 수없는
사설 토토 레벨 :Row, 성명서또는알 수없는
사설 토토가 발사 된 테이블의 OID
사설 토토가 발사 된 테이블 이름
트리거가 발사 된 테이블의 이름. 이것은 더 이상 사용되지 않았으며 향후 릴리스에서 제거 될 수 있습니다. 대신 $ _td- table_name을 사용하십시오.
사설 토토가 발사 된 테이블이 스키마 이름
사설 토토 함수의 인수 수
사설 토토 함수의 인수. 존재하지 않음$ _td- argcis 0입니다.
로우 레벨 사설 토토는 다음 중 하나를 반환 할 수 있습니다.
작동 실행
작동을 실행하지 마십시오
NEW사설 토토 함수에 의해 행이 수정되었습니다
위의 일부를 보여주는 사설 토토 함수의 예가 있습니다.
테이블 테스트 생성 (
나는 int,
v varchar
);
function valid_id ()를 작성하거나 바꾸십시오. 트리거를 $$로 반환합니다
if (($ _td- new i = 100) || ($ _td- new i <= 0))
"건너 뛰기"를 반환합니다. # 삽입/업데이트 명령을 건너 뜁니다
elsif ($ _td- new v ne "Inmortal")
$ _td- new v. = "(트리거로 수정)";
"수정"을 반환합니다. # 행을 수정하고 삽입/업데이트 명령을 실행하십시오
또 다른
반품; # 삽입/업데이트 명령을 실행합니다