# 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`。 当然必须要注意这样的函数不能用来做意料之外的事情。