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

(您可以用单行代码return $_SHARED{myquote}->($_[0]);替换上面的内容，但会降低可读性.)

出于安全原因，PL/Perl 在单独的 Perl 解释器中为该角色执行由任何一个 SQL 角色调用的函数。这样可以防止一个用户意外或恶意干扰另一用户的 PL/Perl 功能的行为。每个此类解释器都有其自己的%_SHARED变量和其他全局状态的值。因此，当且仅当两个 PL/Perl 函数由相同的 SQL 角色执行时，它们才会共享相同的%_SHARED值。在单个会话在多个 SQL 角色下(通过SECURITY DEFINER函数，使用SET ROLE等)执行代码的应用程序中，您可能需要采取显式步骤以确保 PL/Perl 函数可以通过%_SHARED共享数据。为此，请确保应进行通信的功能由同一用户拥有，并将它们标记为SECURITY DEFINER。当然，您必须注意不要将此类功能用于意外操作。