他のバージョンの文書 16 | 15 | 14 | 13 | 12 | 11 | 10 | 9.6 | 9.5 | 9.4 | 9.3 | 9.2 | 9.1 | 9.0 | 8.4 | 8.3 | 8.2 | 8.1 | 8.0 | 7.4 | 7.3 | 7.2

44.4. PL/Perlにおけるグローバルな値

現在のセッションの有効期間中の関数呼び出し間でデータ(コード参照を含む)を受け渡しするためにグローバルな%_SHAREDハッシュを使用することができます。

データの共有について簡単な例を以下に示します。

CREATE OR REPLACE FUNCTION set_var(name text, val text) RETURNS text AS $$
    if ($_SHARED{$_[0]} = $_[1]) {
        return 'ok';
    } else {
        return "cannot set shared variable $_[0] to $_[1]";
    }
$$ LANGUAGE plperl;

CREATE OR REPLACE FUNCTION get_var(name text) RETURNS text AS $$
    return $_SHARED{$_[0]};
$$ LANGUAGE plperl;

SELECT set_var('sample', 'Hello, PL/Perl!  How''s tricks?');
SELECT get_var('sample');

以下は、コード参照を使用した、多少複雑な例です。

CREATE OR REPLACE FUNCTION myfuncs() RETURNS void AS $$
    $_SHARED{myquote} = sub {
        my $arg = shift;
        $arg =~ s/(['\\])/\\$1/g;
        return "'$arg'";
    };
$$ LANGUAGE plperl;


SELECT myfuncs(); /* 関数の初期化 */


/* 引用符関数を使用する関数を作成 */

CREATE OR REPLACE FUNCTION use_quote(TEXT) RETURNS text AS $$
    my $text_to_quote = shift;
    my $qfunc = $_SHARED{myquote};
    return &$qfunc($text_to_quote);
$$ LANGUAGE plperl;

(可読性を犠牲にすると、上はreturn $_SHARED{myquote}->($_[0]);という1行のみで置き換えることができます。)

セキュリティ上の理由により、PL/Perlは、あるロールで呼び出された関数をそのロール用に独立したPerlインタプリタ内で実行します。 これにより、あるユーザの事故または悪意によって他のユーザのPL/Perl関数の動作が干渉されてしまうことを防ぎます。 こうしたインタプリタはそれぞれ独自の%_SHAREDなどのグローバル状態を持ちます。 したがって、同一のSQLロールによって実行された場合のみ、2つのPL/Perl関数は同じ%_SHARED値を共有します。 1つのセッション内で複数のSQLロールの元でコードを(SECURITY DEFINER経由、SET ROLEの使用など)実行するアプリケーションでは、確実にPL/Perl関数が%_SHAREDを介してデータを共有することができるように、明示的な処理を行う必要があります。 このためには、通信しなければならない関数が同じユーザによって所有されること、およびSECURITY DEFINERと印付けられていることを確実にしなければなりません。 当然ながらこうした関数が意図していないことを行うために使用することができないように注意しなければなりません。