您可以使用全局哈希 %_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 会为任何一个 SQL 角色执行的函数在一个该角色 专用的独立 Perl 解释器中执行。 这防止了一个用户对另一个用户的 PL/Perl 函数行为的意外或恶意 干扰。 每个这样的解释器都有自己版本的 %_SHARED 变量和其他全局状态。 因此，两个 PL/Perl 函数当且仅当由同一个 SQL 角色执行时才会共享 相同的 %_SHARED 值。 在单个会话在多个 SQL 角色下执行代码（通过 SECURITY DEFINER 函数、使用 SET ROLE 等）的 应用中，您可能需要采取显式步骤来确保 PL/Perl 函数能够通过 %_SHARED 共享数据。 要做到这一点，请确保需要相互通信的函数由同一个用户拥有，并把它们 标记为 SECURITY DEFINER。 当然，您必须注意这样的函数不能被用来做任何非预期的事情。