Arch Linux

regex??

shorty

hallo
ich habe folgendes problem: ich möchte in einem string alle sonderzeichen mittels regex maskieren, das funktioniert auch für fast alle sonderzeichen, nur ein $-zeichen kann ich nicht ersetzen. dazu ein kleines bsp: mein beispiel string lautet
--->sagsh(jhsj)jsj{jfsdjf}jf\q s$afsd^fdsff
mit folgendem regex möchte ich die steuerzeichen maskieren
--->$like=~ s/\/\\/g;
$like=~ s/'\\$'/\\$/g;
$like=~ s/^/\^/g;
$like=~ s/()|}|{|()/\$1/g;
mein ergebnis sieht so aus
--->sagsh(jhsj)jsj{jfsdjf}jf\q s^fdsff
jedes zeichen wurde maskiert, nur $ nicht, dafür fehlt jetz $afsd.ö

wie kann ich ein $-zeichen maskieren?????

stefanhusmann

Offenbar hält Perl das $afsd im Ersatzstring für eine Variable, und da die nicht initialisiert ist, hat sie den leeren String als Wert, und der wird dann "geschrieben".

Was passiert, wenn du im im Ersatzstring noch ein \ vor das Dollarzeichen schreibst?

shorty

$like=~ s/\$/\\$/g; habe ich auch schon probiert, dass geht leider auch nicht. ich weiß nicht wie ich das noch anders probieren kann

GerBra

Ich denke, dein Problem fängt schon früher an; bei der Stringzuweisung. Du mußt
dort einfache Anführungszeichen verwenden, ansonsten passiert das:

$t = "Hallo$varDu";
print "$t\n";

==> Hallo

Mit enfachen Quotes (Chars) sollte es funktionieren. Beispiel:

$t='Hallo$varDu';
print "Vor : $t\n";

===> Vor : Hallo$varDu

$t =~ s/\$/\\\$/g;
print "Nach: $t\n";

===> Nach: Hallo\$varDu

GerBra

Nachtrag: Wenn es nicht nur um Übungszwecke für regexe geht:
Nutze die perl funktion quotemeta. Die macht genau was du möchtest.

$t='Hallo$var//Du';
$t1 = quotemeta($t);

print "Meta: $t1\n";
===> Meta: Hallo\$var\/\/Du