您可以使用全局哈希 %_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
。您当然必须注意,此类函数不能用于执行任何意外操作。