2012-08-13T13:01:16 Linuxer

Einfacher Schnellschuß ohne Optimierung oder langes Grübeln, der auch Kommentare auf einer Zeile berücksichtigt.

Code (perl): (dl )

1
2
3
4

    # full comment
    if ( $element =~ s{ /\* .*? \*/ }{}x ) {
        next;
    }

Warum eigentlich next? Es kann auch ein Kommantar in der Mitte einer Zeile sein und danach ein weiterer anfangen. Auch vielleicht s///g nehmen, da es mehrere Kommenare pro Zeile geben kann.

Aber immer alles Mist, wenn versucht wird, mit REs echten Quelltext zu parsen.