40.6. PL/Perl�ȥꥬ

PL/Perl����Ѥ��ƥȥꥬ�ؿ���������뤳�Ȥ��Ǥ��ޤ��� �ȥꥬ�ؿ��Ǥϡ�$_TD�Ȥ����ϥå���ؤλ��Ȥˡ����ߤΥȥꥬ���٥�Ȥ˴ؤ�����󤬴ޤޤ�Ƥ��ޤ��� $_TD������ѿ��Ǥ��ꡢ�ƥȥꥬ�ƤӽФ����Ф��ƶɽ�Ū���ͤ��̡��˼��Ф��ޤ��� �ʲ���$_TD�Ȥ����ϥå���ؤλ��ȤΥե�����ɤ򼨤��ޤ���

�ԥ�٥�ȥꥬ�ϰʲ��Τ����줫���֤����Ȥ��Ǥ��ޤ���

�ʲ��ϥȥꥬ�ؿ�����ǡ������ޤǤ������ΰ�������ڤ����ΤǤ���

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();