RegEx Maskierung

[Johnny B.]

Hallo geehrtes Forum,

folgendes Matching verlangt nach der Maskierung der bedeutungsschwangeren Zeichen in $check (so denn welche darin vorhanden sind):

next if $ding =~ /$check/;

Ich habe jetzt eine Sub geschrieben, die das für mich erledigt:

sub mask {
    my $string = shift;
    $string =~ s/([?.\+\*^$|\()[]{}])/\$1/g;
    return $string
}

das ergibt dann:

$check = mask( $check );
next if $ding =~ /$check/;

Ich habe den Eindruck, daß dies auch viel einfacher geht, vielleicht mit einem Maskierungsflag oder so?

Besten Gruß
JOhnnY