请教一个匹配表

nathanisl

假设有一个数组@a，存放着匹配条件A，B,C(匹配条件内容和个数可变)

现在读入一个文本，要将符合数组@a中匹配条件之一的行跳出来

请教怎么写匹配式，谢谢！

starwing83

my $pat = join '|', @a;
while (<>) {
    if (/$pat/) {
        ...
   }
}

这样？