Início / unix / Perguntas / 439356
Accepted
Ole Tange
Asked: 2018-04-23 15:58:06 +0800 CST

Regexp: Regexp terrivelmente lento em perl - como otimizar?

  • 772

Este:

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/'

leva surpreendentes 8 segundos na minha máquina. Eu esperava que levasse no máximo alguns ms.

Isso leva < 10 ms:

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/'

Como posso fazer o primeiro ir mais rápido?

Vou precisar que A e B sejam expressões regulares, ou seja, não serão simplesmente letras únicas.

regular-expression perl

1 respostas

  1. Best Answer

    Use a antecipação negativa e .:

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

    Não é muito bonito, mas funciona.

    • 1

relate perguntas