主页 / unix / 问题 / 439356
Accepted
Ole Tange
Asked: 2018-04-23 15:58:06 +0800 CST

正则表达式：perl 中非常慢的正则表达式 - 如何优化？

  • 772

这个：

echo BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BBBBBBBBBBBBBBBBBBBBBBBBBBBBA |
  perl -pe '/^(.*?B(?:A.*?B){30})A/'

在我的机器上花费了惊人的 8 秒。我曾预计它最多需要几毫秒。

这需要 < 10 毫秒：

echo BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BBBBBBBBBBBBBBBBBBBBBBBBBBBBA |
   perl -pe '/^(.*?B(?:A.*?B){30})A/'

我怎样才能让第一次走得更快？

我需要 A 和 B 成为正则表达式，即它们不仅仅是单个字母。

regular-expression perl

1 个回答

  1. Best Answer

    使用负前瞻和.：

    perl -pe '/^((?:(?!BA).)*?B(?:A(?:(?!BA).)*?B){30})A/'

    不是很漂亮，但它确实有效。

    • 1

相关问题