"nicht-escapetes" Zeichen finden - #55148 (Allgemeines zu Perl)

Matthias

2005-05-28 11:57

User since
2005-04-22
18 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich möchte ein Sonderzeichen (z.B. #) finden, das nicht durch einen Backslash "escaped" ist.

Das lässt sich sicher mit einem negativen Lookbehind lösen.
Allerdings wird damit der Fall '\\#' , also ein literaler Backslash gefolgt von einem #, fälschlicherweise als escaped erkannt.

Meine Lösung dazu finde ich allerdings recht unschön:

Code (perl): (dl )

use strict;
use warnings;

sub escaped { 
    my $string = shift;
    my $count = 0;
    $count++ if $string =~ /\\$/; 
    $count++ while $` =~ /\\$/ ;
    return ($count & 1)
}

#############################
#Aufruf:
    my $searchstring = '\#\\\#sfdgsdfgdsfg#ggg\\#';
    if ($searchstring =~ /#/ and not escaped $`)
    {
       print "# gefunden
";
    }

Ginge das auch "eleganter"?

Grüße

Matthias\n\n