如何在Perl中使用数组元素作为正则匹配项检测文件行？

首先修正你数组定义的语法错误，原代码缺少赋值符号=，正确写法：

my @colors = qw(<red> <blue> <green> <yellow>);

你可以通过两种方式实现需求：

方式一：遍历数组逐个匹配 #

逻辑直观，逐行检查数组中的每个颜色元素，找到匹配后立即终止检查：

while (my $line = <$input_fh>) {
  chomp $line;

  foreach my $color (@colors) {
    # 使用\Q\E（或quotemeta函数）转义<、>这类正则特殊字符，避免匹配异常
    if ($line =~ /\Q$color\E/) {
      $start_writing = 1;
      last; # 找到匹配就跳出循环，无需继续检查其他颜色
    }
  }
  
  next if $start_writing;
}

方式二：拼接正则表达式一次性匹配 #

将数组元素拼接成一个正则分支，只需要一次匹配即可判断该行是否包含任意颜色元素，效率更高（尤其当数组元素较多时）：

# 预编译正则表达式，先转义每个元素的特殊字符，再用|拼接成分支
my $color_re = join '|', map { quotemeta } @colors;
$color_re = qr/$color_re/;

while (my $line = <$input_fh>) {
  chomp $line;

  if ($line =~ $color_re) {
    $start_writing = 1;
    next;
  }
}

两种方法都能满足需求，推荐第二种方式，减少正则匹配次数，提升处理大文件时的性能。

内容的提问来源于stack exchange，提问作者Trango