Suchen mit \ in Perl

[ottto]

Hallo ,
ich möchte in einem Perlscript schauen, ob eine Zeichenkette in einer anderen Zeichenkette enthalten ist.

$st1 = "Das ist ein Test";
$st2 = "ist ein";
if($st1 =~ /$st2/) {
print "ist enthalten ! \n";
}
else {
print "ist nicht enthalten ! \n";
}

Funktioniert soweit gut.
Was muss ich tun, wenn Sonderzeichen im Spiel sind.??
$st1 = "C:\WINDOWS\system32\drivers\etc";
$st2 = "C:\WINDOWS\system32";
Wenn ich die "\ " durch "/ " tausche funktioniert die Abfrage.

Kann man den String so maskieren, dass die Abfrage mit "\ " funktioniert??

Danke.
ottto

[klopskuchen]

Funktioniert bei mir auch mit Backslash einwandfrei.
_________________
When all else fails, read the instructions .