Hallo MudGuard!
evtl. Whitespace (genauer: Leerzeichen oder Tabs), gefolgt von WORT1
Also reicht /[1]*WORT1\b/ vollkommen.
my $str = " WORT1"; #ein Leerzeichen und ein Tab, auch mehrere möglich
print "BINGO" if $str =~ /^\s*WORT1/;
^Z
BINGO
Also reicht /^\s*WORT1/ vollkommen ;)
»\s« weil, da Zeilenweise eingelesen und vom Beginn der Zeile an gesucht wird (»^«), ausgeschlossen wird, dass auch \r\n durch \s gematcht wird.
Viele Grüße aus Frankfurt/Main,
Patrick
--
_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?
_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?
\t ↩︎