nach dem Fund Zeilennummern auch zurückgeben - #181001 (Allgemeines zu Perl)

Raubtier

2015-05-11 11:42

User since
2012-05-04
1055 Artikel
BenutzerIn

user image

Du solltest aber genau lesen, was Linuxer geschrieben hat. Denn im Gegensatz zu Murphy hat Linuxer bei der RegExp keine Begrenzer eingebaut, d.h. wort1 würde in xxxwort1xxx gefunden werden.

Und

Code (perl): (dl )

my $regex = join '|', map {"\Q${_}\E"} @words;          # list of alternative strings

könnte man auch schreiben als

Code (perl): (dl )

my $regex = join '|', map quotemeta, @words;          # list of alternative strings

- das finde ich geringfügig einfacher zu lesen als der Teil \Q....\E.

Edit: da fehlte doch glatt ein "k" vor "eine"...
Last edited: 2015-05-11 13:39:18 +0200 (CEST)