28、深入探索Perl嵌入与内部机制

深入探索Perl嵌入与内部机制

1. Perl嵌入示例

在实际应用中，我们常常需要在C程序中调用Perl脚本，下面将通过具体示例展示如何实现这一过程。

1.1 search_files子例程

假设我们有一个Perl脚本 search.pl ，其中定义了一个名为 search_files 的子例程，其功能类似于简单的grep命令，用于在指定文件中搜索特定模式。以下是 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
        }
    }
}

search_files 接受两个字符串参数，不返回任何值。我们可以通过多种方式