首页 > 数据库 > PostgreSQL > 正文

PostgreSQL7.0手册-用户手册-12. PL/perl - Perl 过程语言

2019-09-08 23:33:09
字体:
来源:转载
供稿:网友
第十二章. PL/perl - Perl 过程语言
内容 
概述 
制做和安装 
使用 PL/Perl 
本章描述如何编译,安装和使用 PL/Perl. 
概述
PL/Perl 允许你用 Perl 脚本语言书写可以用于 SQL 查询的函数,就好象它们是内建在 Postgres 里一样. 
PL/Perl 解释器是一个完整的 Perl 解释器.不过,有些操作出于安全性的考虑被屏蔽掉了. 

通常,被限制的操作是那些于环境交互的动作.包括文件句柄操作,请求和使用(对于外部模块而言). 

要知道,安全不是绝对的.实际上,有几种拒绝服务攻击仍然是可能的-存储器耗尽和无限循环就是两个例子. 


--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

制作和安装
假设 Postgres 源代码树的根是 $PGSRC,那么 Pl/perl 源代码位于 $PGSRC/src/pl/plperl. 
要制作,只需要按照下面步骤处理: 

cd $PGSRC/src/pl/plperl
perl Makefile.PL
make
这样做将创建共享库文件.在一个 Linux 系统里,它将被叫做 plperl.so.在其他系统里的扩展名可能不同. 
然后应该把该共享库拷贝到 postgres 安装的 lib 子目录下. 

createlang 命令用于将该语言安装到一个数据库中.如果它被安装到 template1 里面,以后创建的所有数据库将自动安装这个语言.


--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

使用 PL/Perl
假设你有下面的表: 
CREATE TABLE EMPLOYEE (
    name text,
    basesalary int4,
    bonus int4 );
为了获取所有的薪水(本金+奖励),我们将定义下面这样的函数: 
CREATE FUNCTION totalcomp(int4, int4) RETURNS int4
    AS 'return $_[0] + $_[1]'
    LANGUAGE 'plperl';
请注意参数会象想象的那样以 @_ 形式传递给函数.还有,因为 SQL 创建函数的引号规则,你会发现你要比平常更频繁地使用扩展的引号函数(qq[],q[],qw[]). 
我们现在可以象下面这样使用我们的函数. 

SELECT name, totalcomp(basesalary, bonus) from employee
不过,我们还可以把我们的整个记录传递个我们的函数: 
CREATE FUNCTION empcomp(employee) returns int4
    AS 'my $emp = shift;
        return $emp->{'basesalary'} + $emp->{'bonus'};'
    LANGUAGE 'plperl';
记录是作为一个散列(哈希 hash)数组的引用传递的.脚标是记录里面的字段名称.值是记录里面对应的字段的值. 
新函数 empcomp 可以这样使用: 

SELECT name, empcomp(employee) from employee;

--------------------------------------------------------------------------------
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

图片精选