Perl 中如何使用 XS 编写 C/C++ 扩展？

推荐答案

在 Perl 中使用 XS 编写 C/C++ 扩展的步骤如下：

1. 创建模块结构：

   • 使用 h2xs 工具生成模块的基本结构。
   • 例如：h2xs -A -n MyModule

2. 编写 XS 文件：

   • 在生成的 MyModule.xs 文件中编写 C/C++ 代码。
   • 使用 MODULE 和 PACKAGE 宏定义模块和包名。
   • 使用 XS 宏定义 Perl 调用的函数。

3. 编写 Makefile.PL：

   • 在 Makefile.PL 中指定模块的依赖和编译选项。
   • 例如：WriteMakefile( NAME => 'MyModule', VERSION_FROM => 'lib/MyModule.pm', LIBS => ['-lm'], OBJECT => '$(O_FILES)', );

4. 编译和安装模块：

   • 运行 perl Makefile.PL 生成 Makefile。
   • 运行 make 编译模块。
   • 运行 make install 安装模块。

5. 测试模块：

   • 编写测试脚本 t/*.t 来验证模块的功能。

本题详细解读

1. 创建模块结构

使用 h2xs 工具可以快速生成一个 Perl 模块的基本结构。例如：

h2xs -A -n MyModule

这将生成一个包含 MyModule.xs、Makefile.PL、lib/MyModule.pm 等文件的目录结构。

2. 编写 XS 文件

在 MyModule.xs 文件中，你可以编写 C/C++ 代码，并通过 XS 宏将其暴露给 Perl。例如：

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

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

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

在这个例子中，add 函数接受两个整数参数并返回它们的和。

3. 编写 Makefile.PL

Makefile.PL 文件用于配置模块的编译和安装过程。例如：

use ExtUtils::MakeMaker;

WriteMakefile(
    NAME         => 'MyModule',
    VERSION_FROM => 'lib/MyModule.pm',
    LIBS         => ['-lm'],
    OBJECT       => '$(O_FILES)',
);

4. 编译和安装模块

在生成 Makefile 后，你可以使用以下命令编译和安装模块：

perl Makefile.PL
make
make install

5. 测试模块

最后，编写测试脚本来验证模块的功能。例如，在 t/01-basic.t 中：

use Test::More tests => 1;
use MyModule;

is(MyModule::add(2, 3), 5, '2 + 3 should be 5');

运行 make test 来执行测试。