获取首先出现在HTML字符串中的数组元素

Question

我有这个数组：

@tags = (
    '<div id=',
    '<article id=',
    '<div class=',
    '<article class='
);

和HTML字符串。

我想找到最早出现在字符串中的数组元素。

有没有人有这样做的优雅方式？

Answer 1

最简单的选择是从数组中构建一个正则表达式，让正则表达式引擎报告它找到的第一个字符串。喜欢这个

my $re = join '|', map quotemeta, @tags;
print $html =~ /($re)/;