PERL 外部环境

SQL Anywhere 支持 Perl 存储过程和函数。Perl 存储过程或函数的行为与 SQL 存储过程或函数的行为基本相同，只是过程或函数的代码以 Perl 编写，并且在数据库服务器外（即在 Perl 可执行实例内）执行过程或函数。对于使用 Perl 存储过程和函数的每个连接，会有一个单独的 Perl 可执行文件实例。这一点不同于 Java 存储过程和函数。对于 Java，每个数据库对应于一个 Java VM 实例，而不是每个连接对应于一个实例。Perl 和 Java 间的另一个主要差异是，Perl 存储过程不返回结果集，而 Java 存储过程可以返回结果集。

在数据库支持中使用 Perl 有几个前提条件：

必须将 Perl 安装在数据库服务器计算机上，并且 SQL Anywhere 数据库服务器必须能够找到 Perl 可执行文件。
必须在数据库服务器计算机上安装 DBD::SQLAnywhere 驱动程序。
在 Windows 上必须安装 Microsoft Visual Studio。它对于安装 DBD::SQLAnywhere 驱动程序是必要的，因此这是一个前提条件。

有关安装 DBD::SQLAnywhere 驱动程序的详细信息，请参见Perl DBI 支持。

除了以上前提条件外，数据库管理员还必须安装 SQL Anywhere Perl External Environment 模块。

在 Windows 上，从 SQL Anywhere 安装目录的 SDK\PerlEnv 子目录运行以下命令，以安装外部环境模块：

perl Makefile.PL
nmake
nmake install

在 Unix 上，从 SQL Anywhere 安装目录的 sdk/perlenv 子目录运行以下命令，以安装外部环境模块：

perl Makefile.PL
make
make install

构建和安装 Perl 外部环境模块后，数据库支持中的 Perl 即可使用。数据库支持中的 Perl 仅适用于 SQL Anywhere 版本 11 或更高版本数据库。如果装载 SQL Anywhere 10 数据库，则在数据库支持中尝试使用 Perl 时会返回指示不支持外部环境的错误消息。

要在数据库中使用 Perl，需确保数据库服务器能够找到并启动 Perl 可执行文件。通过执行以下语句可验证这一点：

START EXTERNAL ENVIRONMENT PERL;

如果数据库服务器未能启动 Perl，导致问题的原因可能是数据库服务器无法找到 Perl 可执行文件。这种情况下，应执行 ALTER EXTERNAL ENVIRONMENT 语句来显式设置 Perl 可执行文件的位置。务必要包含可执行文件名。

ALTER EXTERNAL ENVIRONMENT PERL 
  LOCATION 'perl-path';

例如：

ALTER EXTERNAL ENVIRONMENT PERL
  LOCATION 'c:\\Perl\\bin\\perl.exe';

除了验证数据库服务器可以启动 Perl 外，START EXTERNAL ENVIRONMENT PERL 语句并不是必需的。通常，进行 Perl 存储过程或函数的调用会自动启动 Perl。

类似地，停止 Perl 的实例时，STOP EXTERNAL ENVIRONMENT PERL 语句也不是必需的，因为连接终止时实例会自动消失。然而，如果要彻底离开 Perl 并且想要释放一些资源，则 STOP EXTERNAL ENVIRONMENT PERL 语句可以为您的连接释放该 Perl 实例。

验证数据库服务器可以启动 Perl 可执行文件后，要做的下一件事就是在数据库中安装所需的 Perl 代码。使用 INSTALL 语句即可完成。例如，可以执行以下语句来将 Perl 脚本从文件安装到数据库。

INSTALL EXTERNAL OBJECT 'perl-script' 
  NEW 
  FROM FILE 'perl-file'
  ENVIRONMENT PERL;

也可以从表达式构建和安装 Perl 代码，如下所示：

INSTALL EXTERNAL OBJECT 'perl-script' 
  NEW
  FROM VALUE 'perl-statements'
  ENVIRONMENT PERL;

还可以从变量构建和安装 Perl 代码，如下所示：

CREATE VARIABLE PerlVariable LONG VARCHAR;
SET PerlVariable = 'perl-statements';
INSTALL EXTERNAL OBJECT 'perl-script' 
  NEW 
  FROM VALUE PerlVariable
  ENVIRONMENT PERL;

要从数据库中删除 Perl 代码，请使用 REMOVE 语句，如下所示：

REMOVE EXTERNAL OBJECT 'perl-script'

要修改现有 Perl 代码，可以使用 INSTALL EXTERNAL OBJECT 语句的 UPDATE 子句，如下所示：

INSTALL EXTERNAL OBJECT 'perl-script' 
  UPDATE 
  FROM FILE 'perl-file'
  ENVIRONMENT PERL

INSTALL EXTERNAL OBJECT 'perl-script' 
  UPDATE 
  FROM VALUE 'perl-statements'
  ENVIRONMENT PERL

SET PerlVariable = 'perl-statements';
INSTALL EXTERNAL OBJECT 'perl-script' 
  UPDATE 
  FROM VALUE PerlVariable
  ENVIRONMENT PERL

Perl 代码安装在数据库中后，接下来可以创建所需的 Perl 存储过程和函数。创建 Perl 存储过程和函数时，LANGUAGE 始终是 PERL，EXTERNAL NAME 字符串包含调用 Perl 子例程和返回 OUT 参数及返回值所需的信息。每次调用时 Perl 代码可使用以下全局变量：

$sa_perl_return 用于设置函数调用的返回值。
$sa_perl_argN 其中 N 是正整数 [0 .. n]。用于将 SQL 参数传递给 Perl 代码。例如，$sa_perl_arg0 指参数 0，而 $sa_perl_arg1 指参数 1，以此类推。
$sa_perl_default_connection 用于进行服务器端的 Perl 调用。
$sa_output_handle 用于将 Perl 代码的输出发送给数据库服务器消息窗口。

创建 Perl 存储过程时，其输入和输出参数以及返回值可以采用任何一组数据类型。但是，在进行 Perl 调用时，所有非二进制数据类型会映射到字符串，而二进制数据映射到数值数组。下面是一个简单的 Perl 示例：

INSTALL EXTERNAL OBJECT 'SimplePerlExample' 
  NEW 
  FROM VALUE 'sub SimplePerlSub{ 
    return( ($_[0] * 1000) + 
            ($_[1] * 100) + 
            ($_[2] * 10) + 
            $_[3] ); 
  }'
  ENVIRONMENT PERL;

CREATE FUNCTION SimplePerlDemo( 
    IN thousands INT, 
    IN hundreds INT, 
    IN tens INT, 
    IN ones INT) 
  RETURNS INT
  EXTERNAL NAME '<file=SimplePerlExample> 
    $sa_perl_return = SimplePerlSub(
      $sa_perl_arg0, 
      $sa_perl_arg1, 
      $sa_perl_arg2, 
      $sa_perl_arg3)' 
  LANGUAGE PERL;

// The number 1234 should appear
SELECT SimplePerlDemo(1,2,3,4);

下面的 Perl 示例使用一个字符串参数并将其写入数据库服务器消息窗口：

INSTALL EXTERNAL OBJECT 'PerlConsoleExample'
  NEW
  FROM VALUE 'sub WriteToServerConsole { print $sa_output_handle $_[0]; }'
  ENVIRONMENT PERL;

CREATE PROCEDURE PerlWriteToConsole( IN str LONG VARCHAR) 
  EXTERNAL NAME '<file=PerlConsoleExample> 
    WriteToServerConsole( $sa_perl_arg0 )'
  LANGUAGE PERL;

// 'Hello world' should appear in the database server messages window
CALL PerlWriteToConsole( 'Hello world' );

要使用服务器端 Perl，Perl 代码必须使用 $sa_perl_default_connection 变量。下面的示例将创建一个表，然后调用 Perl 存储过程来填充该表：

CREATE TABLE perlTab(c1 int, c2 char(128));

INSTALL EXTERNAL OBJECT 'ServerSidePerlExample' 
  NEW 
  FROM VALUE 'sub ServerSidePerlSub 
    { $sa_perl_default_connection->do( 
        "INSERT INTO perlTab SELECT table_id, table_name FROM SYS.SYSTAB" ); 
      $sa_perl_default_connection->do( 
        "COMMIT" ); 
    }'
  ENVIRONMENT PERL;

CREATE PROCEDURE PerlPopulateTable() 
  EXTERNAL NAME '<file=ServerSidePerlExample> ServerSidePerlSub()' 
  LANGUAGE PERL;

CALL PerlPopulateTable();

// The following should return 2 identical rows
SELECT count(*) FROM perlTab 
UNION ALL 
SELECT count(*) FROM SYS.SYSTAB;

有关在数据库支持中使用 Perl 的详细信息和示例，请参见位于 %SQLANYSAMP16%\SQLAnywhere\ExternalEnvironments\Perl 目录下的示例。

使用DocCommentXchange讨论此页。