如何动态构建 Perl 正则表达式？

我有一个 Perl 脚本，它使用 File::Next::files 遍历目录层次结构。它只会返回以“.avi”、“.flv”、“.mp3”、“.mp4”和“.wmv”结尾的脚本文件。它还会跳过以下子目录：“.svn”和任何以“.frames”结尾的子目录。这是在file_filter and descend_filter下面的子程序。

my $iter = File::Next::files(
        { file_filter => \&file_filter, descend_filter => \&descend_filter },
        $directory );

sub file_filter { 
    # Called from File::Next:files.
    # Only select video files that end with the following extensions.
    /.(avi|flv|mp3|mp4|wmv)$/
}

sub descend_filter { 
    # Called from File::Next:files.
    # Skip subfolders that either end in ".frames" or are named the following:
    $File::Next::dir !~ /.frames$|^.svn$/
}

我想要做的是将允许的文件扩展名和不允许的子目录名称放置在配置文件中，以便可以动态更新它们。

我想知道的是如何编写子例程以根据配置文件中的参数构建正则表达式构造？

/.(avi|flv|mp3|mp4|wmv)$/

$File::Next::dir !~ /.frames$|^.svn$/

假设您已解析配置文件以获取扩展名和忽略目录的列表，则可以将正则表达式构建为字符串，然后使用qr运算符将其编译为正则表达式：

my @extensions = qw(avi flv mp3 mp4 wmv);  # parsed from file
my $pattern    = '\.(' . join('|', @wanted) . ')$';
my $regex      = qr/$pattern/;

if ($file =~ $regex) {
    # do something
}

编译并不是绝对必要的；您可以直接使用字符串模式：

if ($file =~ /$pattern/) {
    # do something
}

目录有点困难，因为有两种不同的情况：全名和后缀。您的配置文件必须使用不同的键来明确哪个是哪个。例如“dir_name”和“dir_suffix”。对于全名，我只需构建一个哈希：

%ignore = ('.svn' => 1);

带后缀的目录可以按照与文件扩展名相同的方式完成：

my $dir_pattern = '(?:' . join('|', map {quotemeta} @dir_suffix), ')$';
my $dir_regex   = qr/$dir_pattern/;

您甚至可以将模式构建到匿名子例程中以避免引用全局变量：

my $file_filter    = sub { $_ =~ $regex };
my $descend_filter = sub {
    ! $ignore{$File::Next::dir} &&
    ! $File::Next::dir =~ $dir_regex;
};

my $iter = File::Next::files({
    file_filter    => $file_filter,
    descend_filter => $descend_filter,
}, $directory);