42.1. PL/토토 베이 함수 및 인수

PL/토토 베이 언어로 함수를 생성하려면 표준을 사용하십시오.PostgreSQL : 문서 : 9.3 : 젠 토토 생성구문:

함수 생성기능 이름 (인수 유형) 반환반환 유형AS $$
    # PL/토토 베이 함수 본문
$$ 언어 pl토토 베이;

함수 본문은 일반 Perl 코드입니다. 실제로, PL/Perl 글루 코드는 이를 Perl 서브루틴 내부에 래핑합니다. PL/펄 함수는 스칼라 컨텍스트에서 호출되므로 목록을 반환할 수 없습니다. 스칼라가 아닌 값(배열, 레코드 및 세트)을 다음과 같이 반환할 수 있습니다. 아래에 설명된 대로 참조를 반환합니다.

PL/Perl은 또한 다음으로 호출되는 익명 코드 블록을 지원합니다.스포츠 토토 결과 : 문서 : 9.3 : do성명:

DO $$
    # PL/펄 코드
$$ 언어 plperl;

익명의 코드 블록은 인수를 받지 않습니다. 반환될 수 있는 값은 삭제됩니다. 그렇지 않으면 다음과 같이 동작합니다. 함수.

의 구문은함수 생성명령을 사용하려면 함수 본문을 문자열로 작성해야 합니다. 일정하다. 일반적으로 달러 인용을 사용하는 것이 가장 편리합니다(참조섹션 4.1.2.4)을 문자열 상수로 사용합니다. 탈출을 사용하기로 선택한 경우 문자열 구문E'', 두 배로 늘려야 합니다. 작은따옴표(') 및 백슬래시 (\) 함수 본문에 사용됨(참조섹션 4.1.2.1).

인수와 결과는 다른 Perl에서처럼 처리됩니다 서브루틴: 인수가 전달됩니다.@_, 결과 값은반환또는 함수에서 평가된 마지막 표현식으로.

예를 들어, 두 정수 중 더 큰 값을 반환하는 함수 값은 다음과 같이 정의될 수 있습니다.

CREATE FUNCTION 토토 베이_max (정수, 정수) $$로 정수를 반환합니다.
    if ($_[0]  $_[1])  return $_[0]; 
    $_[1] 반환;
$$ 언어 plperl;

SQL null 값이 함수에 전달되면 인수 값 다음과 같이 표시됩니다."정의되지 않음"펄에서. 는 위의 함수 정의는 null에서는 매우 잘 작동하지 않습니다. 입력(실제로는 0인 것처럼 작동합니다). 우리는 할 수 있었다 추가STRICT함수 정의에 만들다PostgreSQL뭔가 더 해라 합리적: null 값이 전달되면 함수는 실행되지 않습니다. 전혀 호출되지 않지만 자동으로 null 결과를 반환합니다. 또는 함수에서 정의되지 않은 입력을 확인할 수 있습니다. 몸. 예를 들어 우리가 원한다고 가정해 보겠습니다.토토 베이_max하나의 null 인수와 하나의 null이 아닌 인수 포함 null 값이 아닌 null이 아닌 인수를 반환하려면 다음을 수행하세요.

CREATE FUNCTION 토토 베이_max (정수, 정수) $$로 정수를 반환합니다.
    내 ($x, $y) = @_;
    if (정의되지 않음 $x) 
        $y가 정의되지 않은 경우 undef를 반환합니다.
        $y를 반환합니다;

    $y가 정의되지 않은 경우 $x를 반환합니다.
    $x  $y이면 $x를 반환합니다.
    $y를 반환합니다;
$$ 언어 plperl;

위에 표시된 대로 PL/Perl에서 SQL null 값을 반환하려면 함수는 정의되지 않은 값을 반환합니다. 이는 다음 여부에 관계없이 수행될 수 있습니다. 기능이 엄격한지 아닌지.

참조가 아닌 함수 인수의 모든 내용은 표준에 있는 문자열PostgreSQL외부 텍스트 표현 관련 데이터 유형. 일반 숫자나 문자의 경우 유형에 따라 Perl은 옳은 일을 할 것이고 프로그래머는 그렇게 할 것입니다. 일반적으로 걱정할 필요가 없습니다. 그러나 다른 경우에는 인수는 더 사용하기 쉬운 형식으로 변환되어야 합니다. 펄에서. 예를 들어,decode_bytea함수를 사용하여 유형의 인수바이테아이스케이프되지 않은 상태로 바이너리.

마찬가지로 다음으로 전달된 값은PostgreSQL외부 텍스트에 있어야 합니다. 표현형식. 예를 들어,encode_bytea함수를 사용하여 탈출할 수 있습니다. 유형의 반환 값에 대한 이진 데이터바이테아.

Perl이 반환될 수 있음PostgreSQL배열은 Perl 배열에 대한 참조로 사용됩니다. 예는 다음과 같습니다.

CREATE OR REPLACE 함수 return_array()
$$로 text[][]를 반환합니다.
    return [['a"b','c,d'],['e\\f','g']];
$$ 언어 plperl;

return_array() 선택;

펄 통과PostgreSQL배열 축복받은 자로서PostgreSQL::InServer::ARRAY개체. 이 객체는 배열 참조 또는 문자열, 작성된 토토 베이 코드와의 역호환성을 허용합니다. 에 대한PostgreSQL9.1 이하 버전 달리다. 예를 들면:

함수 생성 또는 교체 concat_array_elements(text[])는 텍스트를 $$로 반환합니다.
    내 $arg = 교대;
    내 $결과 = "";
    undef if (!defined $arg)를 반환합니다;

    # 배열 참조로
    (@$arg) 
        $결과 .= $_;

    # 문자열로도 작동합니다
    $결과 .= $arg;

    $결과를 반환합니다.
$$ 언어 plperl;

SELECT concat_array_elements(ARRAY['PL','/','Perl']);

복합 유형 인수는 다음과 같이 함수에 전달됩니다. 해시에 대한 참조. 해시의 키는 속성 이름입니다. 복합형이다. 예는 다음과 같습니다.

CREATE TABLE 직원(
    이름 텍스트,
    기본급 정수,
    보너스 정수
);

CREATE FUNCTION empcomp(employee)는 정수를 $$로 반환합니다.
    내 ($emp) = @_;
    $emp-basesalary + $emp-bonus를 반환합니다.
$$ 언어 plperl;

SELECT 이름, empcomp(employee.*) FROM 직원;

PL/Perl 함수는 다음을 사용하여 복합 유형 결과를 반환할 수 있습니다. 동일한 접근 방식: 필요한 해시에 대한 참조를 반환합니다. 속성. 예를 들면:

CREATE TYPE testrowperl AS(f1 정수, f2 텍스트, f3 텍스트);

함수 생성 또는 교체 perl_row()는 testrowperl을 $$로 반환합니다.
    return f2 = '안녕하세요', f1 = 1, f3 = '세계';
$$ 언어 plperl;

SELECT * FROM perl_row();

선언된 결과 데이터 유형에 포함되지 않은 모든 열 해시에 존재하는 것은 null 값으로 반환됩니다.

PL/Perl 함수는 스칼라 또는 Perl 세트를 반환할 수도 있습니다. 복합 유형. 일반적으로 한 번에 하나씩 행을 반환하려고 합니다. 시작 시간을 단축하고 대기 시간을 방지하기 위해 전체 결과 세트가 메모리에 저장됩니다. 당신은 이것을 할 수 있습니다return_next아래 그림과 같습니다. 이후에 참고하세요 마지막return_next, 반드시 넣어야 합니다 둘 중 하나반환또는 (더 좋음)반환 undef.

함수 생성 또는 교체 perl_set_int(int)
SETOF 정수를 $$로 반환합니다.
    foreach (0..$_[0]) 
        return_next($_);

    undef를 반환;
$$ 언어 plperl;

SELECT * FROM perl_set_int(5);

함수 생성 또는 교체 perl_set()
SETOF testrowperl을 $$로 반환합니다.
    return_next( f1 = 1, f2 = '안녕하세요', f3 = '세계' );
    return_next( f1 = 2, f2 = '안녕하세요', f3 = 'PostgreSQL' );
    return_next( f1 = 3, f2 = '안녕하세요', f3 = 'PL/Perl' );
    undef를 반환;
$$ 언어 plperl;

작은 결과 세트의 경우 배열에 대한 참조를 반환할 수 있습니다. 스칼라, 배열에 대한 참조 또는 참조를 포함하는 단순 유형, 배열 유형 및 복합 유형에 대한 해시 각각. 다음은 전체를 반환하는 몇 가지 간단한 예입니다. 배열 참조로 결과 집합:

함수 생성 또는 교체 perl_set_int(int)는 SETOF 정수를 $$로 반환합니다.
    반환 [0..$_[0]];
$$ 언어 plperl;

SELECT * FROM perl_set_int(5);

함수 생성 또는 교체 perl_set()는 SETOF testrowperl을 $$로 반환합니다.
    반환 [
         f1 = 1, f2 = '안녕하세요', f3 = '세계' ,
         f1 = 2, f2 = '안녕하세요', f3 = 'PostgreSQL' ,
         f1 = 3, f2 = '안녕하세요', f3 = 'PL/Perl' 
    ];
$$ 언어 plperl;

SELECT * FROM perl_set();

다음을 사용하고 싶다면엄격프라그마 귀하의 코드에는 몇 가지 옵션이 있습니다. 일시적인 전역 사용의 경우 할 수 있다SET pl토토 베이.use_strict참입니다. 이는 영향을 미칠 것입니다 후속 편집물PL/펄함수. 단, 현재 환경에서 이미 컴파일된 함수는 아님 세션. 영구적으로 전역적으로 사용하려면 다음을 설정할 수 있습니다.pl토토 베이.use_strict참으로postgresql.conf파일.

특정 기능에 영구적으로 사용하려면 간단히 다음을 입력하면 됩니다.

엄격한 사용;

함수 본문 상단에.

그특징pragma도 사용할 수 있습니다.사용토토 베이 버전이 5.10.0인 경우 또는 더 높다.