regex escape - #63130 (Allgemeines zu Perl)

Crian

2006-02-22 11:34

User since
2003-08-04
5866 Artikel
ModeratorIn

Hmmm und die Teile zwischen den Pipes sollen Escaped werden? Falls diese keine weiteren Pipes enthalten, beitet es sich an, deinen String an den Pipes zu splitten und dann einen entsprechenden regulären Ausdruck zusammenzubauen.

Etwa so

Code: (dl )

1
2
3

my $string = '.+_*|\d|\w\w\w';
my $re_text = join '|', map {"\Q$_\E"} split /\|/, $string;
... =~ /$re_text/;

Der $re_text enthält dann \.\+_\*|\\d|\\w\\w\\w.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite