pl/perl을 사용하여 젠 토토 기능을 작성할 수 있습니다. 젠 토토 함수에서 해시 참조$ _td현재 트리거 이벤트에 대한 정보가 포함되어 있습니다.$ _td는 글로벌 변수이며 트리거의 호출마다 별도의 로컬 값을 얻습니다. 의 필드$ _td해시 참조는 다음과 같습니다.
$ _td- new foonew열의 가치foo
$ _td- old fooold열의 가치foo
$ _td- name트리거의 이름으로 호출
$ _td- event젠 토토 이벤트 :삽입, 업데이트, 삭제, Truncate또는알 수없는
$ _td- when방아쇠가 호출되었을 때 :전, 이후, 대신또는알 수없는
$ _td- level젠 토토 레벨 :Row, 성명서또는알 수없는
$ _td- relid젠 토토가 발사 된 테이블의 OID
$ _td- table_name젠 토토가 발사 된 테이블의 이름
$ _td- relname젠 토토가 발사 된 테이블의 이름. 이것은 더 이상 사용되지 않았으며 향후 릴리스에서 제거 될 수 있습니다. 대신 $ _td- table_name을 사용하십시오.
$ _td- table_schema젠 토토가 발사 된 테이블이 스키마 이름
$ _td- argc젠 토토 함수의 인수 수
@$ _ td- args젠 토토 함수의 인수. 존재하지 않음$ _td- argcis 0입니다.
로우 레벨 트리거는 다음 중 하나를 반환 할 수 있습니다.
return;작동 실행
"skip"작동을 실행하지 마십시오
"수정"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. = "(트리거로 수정)";
"수정"을 반환합니다. # 행을 수정하고 삽입/업데이트 명령을 실행하십시오
또 다른
반품; # 삽입/업데이트 명령을 실행합니다