Dotaz: Perl - proč nefunguje -g modifikátor v regexu?

[Pirkil]

Dobrý den, mám následující regex:

use strict;

use warnings;

use carp;

if ($line =~ m{\b(\w+)\b

\s*

\b(\w+)\b #slovo v okolí hledaného slova

\s* #mezera

\b$slovo\b #hledané slovo

\s*

\b(\w+)\b

\s*

\b(\w+)\b} ixg)

I s modifikátorem 'g' mi při prohledávání textu najde pouze první výskyt tohoto vzoru na řádce. (Mám zjištěno, že vzoru odpovídají i jiné části řádky.) V kódování problém není, protože najde i výrazy s diakritikou. Díky za pomoc.

---

---

Odpovědi

[Pirkil]

mas to v podmienke, takze by malo byt jedno ci najde 1 alebo 1000, vrati proste true...

alebo je nieco inak?

[Pirkil]

máš samozřejmě pravdu - už mi to funguje, dík moc.

[NeoV]

preco pouzivas kombinaciu \b\s*\b medzi slovami? Ved priamym ekvivalentom v tvojom regexe je \s+, teda:

$line =~ m{\b(\w+)
\s+
(\w+) #slovo v okolí hledaného slova
\s+ #mezera
$slovo #hledané slovo
\s+
(\w+)
\s+
(\w+)\b}ixg

[pht]

Proměnné v regexu je dobré ohraničit citací, viz:

\Q$slovo\E