| PostgreSQL 8.3.3문서 | ||||
|---|---|---|---|---|
| Prev | Fast Backward | Chapter 39. PL/Perl - Perl 수속 언어 | Fast Forward | Next |
현재의 세션의 유효기간중의 함수 호출간에 데이터(코드 참조를 포함한다)를 주고 받기 위해서 글로벌%_SHARED해시를 사용할 수가 있습니다.
데이터의 공유에 대해 간단한 예를 이하에 나타냅니다.
CREATE OR REPLACE FUNCTION set_var(name text, val text) RETURNS text AS $$
if ($_SHARED{$_[0]} = $_[1]) {
return 'ok';
} else {
return "can't 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]);라는 1행만으로 옮겨놓을 수 있습니다. )