42.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(); /* 初始化函数 */
/* 建立一个使用引用的函数的函数 */
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角色在一个单独为这个角色的解释器里执行函数调用。 这阻止了有另一个用户的PL/Perl函数的表现的用户的恶意干扰或事故。每个这样的解释器有它自己的 %_SHARED变量值和其他全局状态。因此,当且仅当通过相同的SQL角色执行时, 两个PL/Perl函数才将分享相同的%_SHARED值。在多个SQL角色下, 只有一个会话执行代码的应用中(通过SECURITY DEFINER函数,使用SET ROLE等), 可能需要采取明确的步骤保证PL/Perl函数可以通过%_SHARED分享数据。 要做到这点,确保应该沟通的函数是由相同的用户所有的,并且标记他们为SECURITY DEFINER。 当然必须要注意这样的函数不能用来做意料之外的事情。