+?.*^$()[]{}|\ ersetzen durch andere Zeichenkette - #70913 (Allgemeines zu Perl)

renee

2006-10-19 13:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Die Variable $string is in meinem Code initialisiert und in $text steht irgendwas drin mit den Sonderzeichen.

Z.B.:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $text = '1 + 3 = [532] {hallo}';

my $string = q~+?.*^$()[]{}|\\~;
$text =~ s/([\Q$string\E])/\\$1/g;
print $text;

Und dann bekommt man:

Code: (dl )

1
2

~/entwicklung 73> perl regexp.pl 
1 \+ 3 = \[532\] \{hallo\}

Ein wenig Transferarbeit ist hier schon gefordert!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/