43.4. Глобальные значения в PL/Perl#
43.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(); /* 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 будут использовать одно и то же значение %_SHARED только в том случае, если они выполняются той же SQL-ролью. В приложении, в котором одна сессия выполняет код под несколькими SQL-ролями (через функции SECURITY DEFINER, использование SET ROLE и т. д.), вам может потребоваться предпринять дополнительные шаги, чтобы обеспечить возможность обмена данными между функциями PL/Perl через %_SHARED. Для этого убедитесь, что функции, которые должны взаимодействовать, принадлежат одному и тому же пользователю и пометьте их как SECURITY DEFINER. Конечно, вы должны обеспечить, чтобы такие функции не могли использоваться для выполнения нежелательных действий.