28、嵌入式Perl编程与内部机制解析

嵌入式Perl编程与内部机制解析

1. 嵌入式Perl示例

在实际应用中，我们常常需要将Perl脚本嵌入到C程序中，以充分发挥两者的优势。下面将通过具体示例来展示如何实现这一过程。

1.1 搜索文件示例

假设我们有一个Perl脚本 search.pl ，其中定义了一个名为 search_files 的子例程，用于在指定文件中搜索特定模式。以下是 search.pl 的代码：

# search_files - a simple grep. Called as ...
#    search_files ("struct", "*.h")
sub search_files {
    my ($pattern, $filepattern) = @_;
    local (@ARGV) = glob($filepattern);
    return unless (@ARGV);
    while (<>) {       # Can do this because @ARGV has been primed
        if (/$pattern/o) {
            print "$ARGV\[$.\]: $_"; # File, line number, match line
        }
    }
}

在C程序中调用这个Perl子例程，可以使用 perl_call_argv() 函数。以下是一个示例代