regex - 在perl中使用正则表达式检索两个字符串定界符之间的字符串

Question

我已经研究了一段时间了，但似乎无法弄清楚。我有一个包含一堆行的文件，所有行的结构如下所示，这意味着每行都以“!”开头并且具有三个分隔符“<DIV>”。

!the<DIV>car<DIV>drove down the<DIV>road off into the distance

我对检索最后一个字符串“road off into the distance”很感兴趣，但我似乎无法让它工作。下面我列出了我当前的代码。

while($line = <INFILE>) {
    $line =~ /<SEP>{3}(.*)/;
    print $1;
}

如有任何帮助，我们将不胜感激!

Answer 1

声明

@b = $a =~ /^!(.*?)<DIV>(.*?)<DIV>(.*?)<DIV>(.*)/

会将字符串拆分成一个列表，然后您可以提取第 4 个元素

$b[3]

如果您真的只想要最后一个，请改为执行此操作:

($text) = $a =~ /^!.*<DIV>(.*)/