PostgreSQL 8.3.3문서
Prev	Fast Backward	Chapter 39. PL/Perl - Perl 수속 언어	Fast Forward	Next

39.6. PL/Perl 트리거

PL/Perl를 사용해 트리거 함수를 작성할 수 있습니다. 트리거 함수에서는, $_TD라는 해시에의 참조에, 현재의 트리거 이벤트에 관한 정보가 포함되어 있습니다. $_TD는 광역 변수이며, 각 트리거 호출에 대해서 국소적인 값을 따로 따로 꺼냅니다. 이하에 $_TD라는 해시에의 참조의 필드를 나타냅니다.

$_TD->{new}{foo}: NEW의 foo렬값.
$_TD->{old}{foo}: OLD의 foo렬값.
$_TD->{name}: 불려 간 트리거의 이름.
$_TD->{event}: 트리거 이벤트. INSERT,UPDATE,DELETE, 혹은UNKNOWN.
$_TD->{when}: 트리거가 언제 불려 갔는지. BEFORE ,AFTER, 혹은 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 PROCEDURE valid_id();

Prev	Home	Next
신뢰된 PL/Perl 및 신뢰되지 않는 PL/Perl	Up	제한 및 존재하지 않는 기능