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

39.1. PL/Perl 함수와 인자

PL/Perl 언어로 함수를 작성하려면, 이하의 표준적인 CREATE FUNCTION 구문을 사용해 주세요. 

CREATE FUNCTION 
funcname
 (
argument-types
) RETURNS 
return-type
 AS $$
    # PL/Perl function body
$$ LANGUAGE plperl;

함수 본문은 통상의 Perl의 코드입니다. 실제, PL/Perl의 풀먹임 코드는, 이것을 Perl의 서브루틴의 내부에 저장합니다. PL/Perl 함수는 항상 scalar값을 돌려주지 않으면 안됩니다. 후술대로, 참조를 사용해 복잡한 구조(배열, 레코드, 집합)를 돌려줄 수가 있습니다. 리스트를 돌려주지 않습니다.

Note: Perl, 특히 그 닫힌 범위로 국소 변수를 참조하는 것 같은 경우에서는, 이름 첨부의 상자장 서브루틴의 사용은 위험합니다. PL/Perl 함수는 서브루틴내에 저장되기 때문에, 이름 첨부의 서브루틴은 모두 상자로 됩니다. 일반적으로, 코드 참조를 개입시켜 호출하는 익명 서브루틴을 작성하는 편이 꽤 안전합니다. 자세한 것은 perldiag메뉴얼 페이지를 참조해 주세요.

CREATE FUNCTION명령의 구문에서는, 함수 본체는 문자열 정수로서 기술되는 것을 필수로 하고 있습니다. 통상, 문자열 정수에는 달러 인용부호 붙이고(Section 4.1.2.2를 참조)를 사용하는 것이 가장 편리합니다. 이스케이프 문자열 구문 E''를 사용하는 것을 선택했을 경우, 함수 본문으로 사용되는 단일 인용부호(')와 backslash(\)를 이중인용부호을 하지 않으면 안됩니다. (Section 4.1.2.1를 참조).

인자와 결과는 다른 Perl 서브루틴과 같게 다루어집니다. 인자는 @_의 안에게 건네져 결과값은return, 또는, 그 함수로 마지막에 평가된 식으로서 돌려주어집니다.

예를 들면, 2개의 정수의 더 큰 편을 돌려주는 함수는 이하와 같이 정의할 수 있습니다. 

CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $$
    if ($_[0] > $_[1]) { return $_[0]; }
    return $_[1];
$$ LANGUAGE plperl;

SQL의 NULL값이 함수에게 건네졌을 경우, 그 인자값은 Perl에서 "정의가 안된"것으로 나타납니다. 위의 함수 정의에서는, NULL값이 입력되었을 경우 잘 동작하지 않을 것입니다(실제는 그것이 0인것 같이 동작하겠지요). STRICT를 함수 정의에 가세하는 것으로, PostgreSQL의 동작을 보다 합리적으로 할 수가 있습니다. NULL값가 건네받았을 경우, 함수는 전혀 불려 가지 않고, 단지 NULL이라는 결과가 자동적으로 돌려주어집니다. 다른 방법으로서 함수 본체로 정의되지 않은 입력을 체크할 수도 있습니다. 예를 들면, perl_max의 인자의 다른 한쪽이 NULL이고, 다른 한쪽이 NULL이 아닌 경우에, NULL값는 아니고 NULL이 아닌 인자를 돌려줍니다. 

CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $$
    my ($x,$y) = @_;
    if (! defined $x) {
        if (! defined $y) { return undef; }
        return $y;
    }
    if (! defined $y) { return $x; }
    if ($x > $y) { return $x; }
    return $y;
$$ LANGUAGE plperl;

위에서 가리킨 대로, PL/Perl 함수로부터 SQL의 NULL값을 돌려주기 위해서는, 미정의값을 돌려주도록 해 주세요. 이것은, 함수가 엄밀한가 어떤가에 관계없이, 실행할 수가 있습니다.

Perl는, PostgreSQL의 배열을 Perl 배열의 참조로서 돌려줄 수가 있습니다. 이하에 예를 나타냅니다. 

CREATE OR REPLACE function returns_array()
RETURNS text[][] AS $$
    return [['a"b','c,d'],['e\\f','g']];
$$ LANGUAGE plperl;

select returns_array();

복합형의 인자는 해시에의 참조로서 함수에 건네집니다. 해시의 키는 복합형의 속성명입니다. 이하에 예를 나타냅니다. 

CREATE TABLE employee (
    name text,
    basesalary integer,
    bonus integer
);

CREATE FUNCTION empcomp(employee) RETURNS integer AS $$
    my ($emp) = @_;
    return $emp->{basesalary} + $emp->{bonus};
$$ LANGUAGE plperl;

SELECT name, empcomp(employee.*) FROM employee;

필요한 속성을 가지는 해시의 참조를 돌려주는 것과 같은 방법으로, PL/Perl 함수는 복합형의 결과를 돌려줄 수가 있습니다. 이하에 예를 나타냅니다. 

CREATE TYPE testrowperl AS (f1 integer, f2 text, f3 text);

CREATE OR REPLACE FUNCTION perl_row() RETURNS testrowperl AS $$
    return {f2 => 'hello', f1 => 1, f3 => 'world'};
$$ LANGUAGE plperl;

SELECT * FROM perl_row();

선언된 결과 데이터형의 임의의 열 가운데, 해시내에 존재하지 않는 것은 NULL값으로서 돌려주어집니다.

또, PL/Perl 함수는 스칼라형의 배열이나 복합형의 배열을 돌려줄 수도 있습니다. 통상, 기동 처리의 고속화와 메모리내의 결과 세트 전체를 기다리는 행렬 로 유지할 수 있는 것으로부터, 1번에 1행을 돌려주는 편이 좋을 것입니다. 이하에 나타내는 return_next를 사용해, 이것을 실시할 수가 있습니다. 마지막 return_next의 다음에, return 또는 return undef(추천)를 기술해야 하는 것에 주의해 주세요. 

CREATE OR REPLACE FUNCTION perl_set_int(int)
RETURNS SETOF INTEGER AS $$
    foreach (0..$_[0]) {
        return_next($_);
    }
    return undef;
$$ LANGUAGE plperl;

SELECT * FROM perl_set_int(5);

CREATE OR REPLACE FUNCTION perl_set()
RETURNS SETOF testrowperl AS $$
    return_next({ f1 => 1, f2 => 'Hello', f3 => 'World' });
    return_next({ f1 => 2, f2 => 'Hello', f3 => 'PostgreSQL' });
    return_next({ f1 => 3, f2 => 'Hello', f3 => 'PL/Perl' });
    return undef;
$$ LANGUAGE plperl;

소규모의 결과 집합에서는, 각각 단순한 형태, 배열형, 복합형에 대응하는, 스칼라, 배열의 참조, 해시의 참조를 포함한 배열의 참조를 돌려줄 수가 있습니다. 이하, 배열에의 참조로서 결과 집합 전체를 돌려주는 단순한 예를 몇개 가리킵니다. 

CREATE OR REPLACE FUNCTION perl_set_int(int) RETURNS SETOF INTEGER AS $$
    return [0..$_[0]];
$$ LANGUAGE plperl;

SELECT * FROM perl_set_int(5);

CREATE OR REPLACE FUNCTION perl_set() RETURNS SETOF testrowperl AS $$
    return [
        { f1 => 1, f2 => 'Hello', f3 => 'World' },
        { f1 => 2, f2 => 'Hello', f3 => 'PostgreSQL' },
        { f1 => 3, f2 => 'Hello', f3 => 'PL/Perl' }
    ];
$$ LANGUAGE plperl;

SELECT * FROM perl_set();

코드내에서 strict프라그마를 사용하고 싶으면, SET plperl.use_strict를 참으로 하는 것이 가장 간단한 방법입니다. 이 매개변수는, 그 후의 PL/Perl함수의 변역에 영향을 줍니다. 현재의 세션으로 변역이 끝난 함수에는 영향을 주지 않습니다. PL/Perl를 로드하기 전에 이 매개변수를 설정하려면, postgresql.conf내의 custom_variable_classes일람에 "plperl"를 추가하지 않으면 안됩니다.

strict프라그마를 사용하기 위한 다른 방법은, 이하를 함수 본문에 기재하는 것입니다. 

use strict;

그러나, 이것은 PL/PerlU함수로 밖에 동작하지 않습니다. use는 신뢰할 수 있는 조작은 아니기 때문입니다. 대신, PL/Perl함수에서는 이하와 같이 해 주세요. 

BEGIN { strict->import(); }

Prev Home Next
PL/Perl - Perl 수속 언어 Up PL/Perl로부터의 데이터베이스 접근