Thread Aktive sub-Aufrufe finden (26 answers)
Opened by bianca at 2010-11-08 15:41

bianca
 2010-12-20 11:15
#143721 #143721
User since
2009-09-13
7016 articles
BenutzerIn

user image
Hab hierzu doch noch eine Frage, ob wir das noch ein ganz klein wenig optimiert bekommen mit einem Regex. Soll nicht zuviel Aufwand sein aber das folgende Beispiel sollte korrekt matchen, das wäre schon Hammer.

Wie müsste der Regex lauten, damit nur der dritte und vierte Fall "auskommentiert" matcht und die anderen beiden auf "aktiv"? Das \b musste ich übrigens rausnehmen, weil da mal was nicht gefunden wurde, was ich aber gefunden haben wollte, weiß das nicht mehr ganz genau.

Danke

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/perl -w
use strict;
use warnings;

my $suchwort = 'daten';
foreach my $code (
<<'heredoc'
$a = 'b';  # Kommentar mit Suchwort daten
heredoc
,
<<'heredoc'
$a = 'daten';
heredoc
,
<<'heredoc'
#$a = 'daten';
heredoc
,
<<'heredoc'
                 #$a = 'daten';
heredoc
,
) {
    my $quoted = quotemeta $suchwort;
    if ($code =~ m/^.*$quoted/) {
        print $code . "matcht und ist " . ($code =~ m/^[^#]*$quoted/ ? 'aktiv' : 'auskommentiert') . "\n\n";
    }
}
10 print "Hallo"
20 goto 10

View full thread Aktive sub-Aufrufe finden