PL/Perlにおけるグローバル変数

PostgreSQL 8.0.0 文書
前のページ | 巻戻し | 第 37章PL/Perl - Perl 手続き言語 | 早送り | 次のページ

# 37.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 "can't 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におけるデータ値 | 上に戻る | 信頼されたPL/Perlおよび信頼されないPL/Perl