Имеется текстовый файл 150 Мб


два регулярных выражения:

1)  if (/d\s+-\d|\d-\s+\d/){print OUT}

2) if(/\d\s+-\d/ || /\d-\s+\d/){print OUT}

первое обрабатывает весь файл за 37, 67 секунды
второе выражение обрабатывает за 3,42 секунды (в 10 раз быстрее!)

У меня уже голова кипит, не пойму в чем дело.

Два других выражения:

/(?:тыс|млн|млрд)\.р/  
/тыс\.р/ || /млн\.р/ || /млрд\.р/  

работают с аналогичной скоростью (2,4 сек)

Просто мистика какая-то.

Добавлено @ 19:55
Ааа, кажется, я понял. Все дело в том, что конструкция /d\s+-\d|\d-\s+\d/ вызывает большое количество возратов.
Необходимо оптимизировать это выражение до /\d(?:\s+-|-\s+)\d/. Теперь скорость обработки 5,99 сек.
Но это все равно гораздо медленней, чем два выражения /\d\s+-\d/ || /\d-\s+\d/)

Это сообщение отредактировал(а) Suppir - 30.8.2009, 19:56

Еще прикол:

/\d{4}г|N\d|\d"\d/   - 56,27 сек
/N\d|\d(?:\d{3}г|"\d)/  - 44,36 сек
/\d{4}г/ || /N\d/ || /\d"\d/  -  3,88 сек

результат полностью аналогичный. Оптимизация в 15 раз!
ActivePerl 5.10, Windows XP, SP 3

1

Это сообщение отредактировал(а) Suppir - 31.8.2009, 10:43

Есть какие-нибудь предположения? 

http://www.ozon.ru/context/detail/id/4066500/

Спасибо, arto. Книжка, можно сказать, у меня настольная 
Собственно, благодаря ей и знаю, как оптимизировать 
/d\s+-\d|\d-\s+\d/ - 37, 67 сек.
до
/\d(?:\s+-|-\s+)\d/    - 5,99 сек.
.
Но в это книжке ничего про пакеты (if /.../ && /.../ && !/.../) регулярных выражений не написано.

Это сообщение отредактировал(а) Suppir - 1.9.2009, 07:22

perldoc re на предмет debug, и посмотреть разницу между выражениями.