Dobry clanek,
diky nemu jsem si overil, ze perl opravdu reg.vyrazy moc neoptimalizuje:(
didone:~$ perl -pe 'use re "debugcolor"; "xy123456zzz" =~ /(stejnyzacatek1|stejnyzacatek2)/; '
Compiling REx `(stejnyzacatek1|stejnyzacatek2)'
size 17 Got 140 bytes for offset annotations.
first at 3
1: OPEN1(3)
3: BRANCH(9)
4: EXACT <stejnyzacatek1>(15)
9: BRANCH(15)
10: EXACT <stejnyzacatek2>(15)
15: CLOSE1(17)
17: END(0)
minlen 14

Coz by mel spravne dat 'stejnyzacatek' pred BRANCH. Pak by sli regularni vyrazy pouzivat i jako struktura trie.
Coz by bylo zvlaste uzitecne s "(?{ code })".