对于要在其中启用PL/Perl的每个数据库，请使用SQL CREATE EXTENSION命令注册该语言。 例如，以gpadmin用户身份运行以下命令，为名为testdb的数据库注册可信PL/Perl语言：

$ psql -d testdb -c 'CREATE EXTENSION plperl;'

要从数据库中删除对PL/Perl的支持，请运行SQL DROP EXTENSION命令。 例如，以gpadmin用户身份运行以下命令，从名为testdb的数据库中删除对可信PL/Perl语言的支持：

$ psql -d testdb -c 'DROP EXTENSION plperl;'

如果任何现有对象（如函数）依赖于语言，则默认命令将失败。 指定CASCADE选项也可以删除所有依赖对象，包括使用PL/Perl创建的函数。

PL/Perl包含用于访问数据库的内置函数，包括用于准备和执行查询以及操作查询结果的函数。 该语言还包括用于错误记录和字符串操作的实用程序函数。

以下示例创建一个包含整数和文本列的简单表。 它创建一个PL/Perl用户定义函数，该函数接受输入字符串参数并调用spi_exec_query()内置函数来选择表的所有列和行。 该函数返回查询结果中的所有行，其中v列包含函数输入字符串。

CREATE TABLE test (
    i int,
    v varchar
);
INSERT INTO test (i, v) VALUES (1, 'first line');
INSERT INTO test (i, v) VALUES (2, 'line2');
INSERT INTO test (i, v) VALUES (3, '3rd line');
INSERT INTO test (i, v) VALUES (4, 'different');

CREATE OR REPLACE FUNCTION return_match(varchar) RETURNS SETOF test AS $$
    # store the input argument
    $ss = $_[0];

    # run the query
    my $rv = spi_exec_query('select i, v from test;');

    # retrieve the query status
    my $status = $rv->{status};

    # retrieve the number of rows returned in the query
    my $nrows = $rv->{processed};

    # loop through all rows, comparing column v value with input argument
    foreach my $rn (0 .. $nrows - 1) {
        my $row = $rv->{rows}[$rn];
        my $textstr = $row->{v};
        if( index($textstr, $ss) != -1 ) {
            # match!  return the row.
            return_next($row);
        }
    }
    return undef;
$$ LANGUAGE plperl EXECUTE ON MASTER ;

SELECT return_match( 'iff' );
 return_match
---------------
 (4,different)
(1 row)

有关可用函数的详细讨论，请参阅PostgreSQL PL/Perl内置函数文档。

您可以使用全局哈希映射%_SHARED在当前会话的生命周期内在PL/Perl函数调用之间共享数据，包括代码引用。

以下示例使用%_SHARED在用户定义的set_var()和get_var() PL/Perl函数之间共享数据：

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('key1', 'value1');
 set_var
---------
 ok
(1 row)

SELECT get_var('key1');
 get_var
---------
 value1
(1 row)

出于安全原因，PL/Perl为每个角色创建一个单独的Perl解释器。 这可以防止一个用户对另一个用户的PL/Perl函数的行为进行意外或恶意干扰。 每个这样的解释器都保留其自己的%_SHARED变量值和其他全局状态。 当且仅当它们由相同的SQL角色执行时，两个PL/Perl函数共享相同的%_SHARED值。

在某些情况下，您必须采取明确的步骤来确保PL/Perl函数可以在%_SHARED中共享数据。 例如，如果应用程序在单个会话中在多个SQL角色（通过SECURITY DEFINER函数，使用SET ROLE等）下执行， 请确保需要通信的函数由同一用户拥有，并将这些函数标记为SECURITY DEFINER。