【IT168 服务器学院】你可以利用 %_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]); 代替上面的三行。）