# 45.4.PL/Perl中的全局值

可以使用全局哈希%_分享在当前会话的生命周期内,在函数调用之间存储数据,包括代码引用。

以下是共享数据的一个简单示例:

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(); /* initializes the function */

/* Set up a function that uses the quote function */

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;

(你本可以用一个衬垫代替上面的返回$_SHARED{myquote}->($0[0]);以牺牲可读性为代价。)

出于安全原因,PL/Perl在一个单独的Perl解释器中执行任何一个SQL角色调用的函数。这可以防止一个用户对另一个用户的PL/Perl函数的行为进行意外或恶意干扰。每一个这样的解释器都有自己的价值%_分享变量和其他全局状态。因此,两个PL/Perl函数将共享相同的%_分享当且仅当它们由相同的SQL角色执行时。在一个应用程序中,单个会话在多个SQL角色下执行代码(通过安全定义者功能,使用设定角色等)您可能需要采取明确的步骤来确保PL/Perl函数可以通过%_分享.要做到这一点,请确保应该通信的功能属于同一用户,并对其进行标记安全定义者.当然,你必须注意这些功能不能被用来做任何意外的事情。