無料スクリプト配布のPHP.TO   PHPの実用的なtips PHPマニュアル MySQLマニュアル Apacheマニュアル PostgreSQLマニュアル マニュアル検索    

42.1. PL/Perl関数と引数

PL/Perl言語で関数を作成するには、以下の標準的な CREATE FUNCTION 構文を使用してください。

CREATE FUNCTION 

funcname

 (

argument-types

) RETURNS 

return-type

 AS $$
    # PL/Perl関数本体
$$ LANGUAGE plperl;

関数本体は通常のPerlのコードです。 実際、PL/Perlの糊付けコードは、これをPerlのサブルーチンの内部に格納します。 PL/Perl関数はスカラコンテキストとして呼び出されます。このためリストを返すことはできません。 後述の通り、参照を返すことによりスカラ以外の値(配列、レコード、集合)を返すことができます。

またPL/Perlは DO 文で呼び出される匿名コードブロックをサポートします。

DO $$
    # PL/Perl code
$$ LANGUAGE plperl;

匿名コードブロックは引数を取りません。 また何らかの値を返したとしても破棄されます。 その他は関数と同様に動作します。

注意: Perl、特にその閉ざされたスコープで局所変数を参照するような場合では、名前付きの入れ子状サブルーチンの使用は危険です。 PL/Perl関数はサブルーチン内に格納されますので、内部に記述した名前付きのサブルーチンはすべて入れ子にされます。 一般的に、コード参照を介して呼び出す匿名サブルーチンを作成する方がかなり安全です。 詳細は perldiag マニュアルページ内の Variable "%s" will not stay shared および Variable "%s" is not available を参照してください。 またはインターネットで "perl nested named subroutine" を検索してください。

CREATE FUNCTION コマンドの構文では、関数本体は文字列定数として記述されることを必須としています。 通常、文字列定数にはドル引用符付け( 項4.1.2.4 を参照)を使用することが最も便利です。 エスケープ文字列構文 E'' を使用することを選択した場合、関数本体で使用される単一引用符( ' )とバックスラッシュ( \ )をすべて二重にしなければなりません( 項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;

注意: PL/Perl内部での使用のため、引数はデータベースの符号化方式からUTF-8に変換され、返されるときにUTF-8からデータベースの符号化方式に戻されます。

SQLのNULL値が関数に渡された場合、その引数値はPerlにおける "未定義" として現れます。 上の関数定義では、NULL値が入力された場合うまく動作しないでしょう(実際はそれがゼロであるかのように動作するでしょう)。 STRICT を関数定義に加えることで、 PostgreSQL の動作をより合理的にすることができます。 NULL値が渡された場合、関数はまったく呼び出されず、単にNULLという結果が自動的に返されます。 他の方法として、関数本体で未定義な入力を検査することもできます。 例えば、 perl_max の引数の片方がNULL、もう片方が非NULLの場合に、NULL値ではなく非NULLの引数を返すようにするとします。

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

上で示した通り、PL/Perl関数からSQLのNULL値を返すためには、未定義値を返すようにしてください。 これは、関数が厳密かどうかに関係なく、実行することができます。

関数引数の内で参照ではないものは、対応するデータ型向けの PostgreSQL の標準的な外部テキスト表現で表された文字列です。 通常の数値やテキスト型では、Perlは正確に処理を行いますので、通常プログラマは心配することはありません。 しかし、この他の場合では、引数をPerlでより使用しやすいように変換する必要があります。 例えば、 decode_bytea 関数は bytea 型の引数をエスケープしないバイナリに変換するために使用することができます。

同様に、 PostgreSQL に戻される値を外部テキスト表現書式で表さなければなりません。 例えば、 bytea 型の戻り値をバイナリデータにエスケープするために encode_bytea を使用することができます。

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

Perlは PostgreSQL の配列をblessされた PostgreSQL::InServer::ARRAY オブジェクトとして渡します。 9.1より過去の PostgreSQL で作成されたPerlコードを実行させるための後方互換性のため、このオブジェクトは配列への参照または文字列として扱うことができます。 以下に例を示します。

CREATE OR REPLACE FUNCTION concat_array_elements(text[]) RETURNS TEXT AS $$
    my $arg = shift;
    my $result = "";
    return undef if (!defined $arg);

    # 配列への参照として
    for (@$arg) {
        $result .= $_;
    }

    # 文字列としても働く
    $result .= $arg;

    return $result;
$$ LANGUAGE plperl;

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

注意: Perlプログラマの常識のように、多次元配列は低次元配列の参照への参照として表現されます。

複合型の引数はハッシュへの参照として関数に渡されます。 ハッシュのキーは複合型の属性名です。 以下に例を示します。

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 関数のコンパイルに影響しますが、現在のセッションでコンパイル済みの関数には影響しません。 永続的に大域的に使用するためには、 postgresql.conf ファイル内で plperl.use_strict を真に設定します。

特定の関数で永続的に使用するためには単純に以下を関数本体の先頭に記載してください。

use strict;

また、Perlのバージョンが5.10.0以上であれば use feature プラグマが利用可能です。


powered by SEO.CUG.NET