PostgreSQL 8.0.0 �����ĵ���PostgreSQL �й� ������ | ||||
---|---|---|---|---|
Prev | Fast Backward | Chapter 37. 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]); ������������С���