# 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`。 當然必須要注意這樣的函數不能用來做意料之外的事情。