Suchen/Ersetzen: Ersetzung vor dem Gesuchten einsetzen - #49277 (Allgemeines zu Perl)

Johannes

2004-08-14 01:24

User since
2004-08-12
8 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

$text =~ s{ (<!--\s*$\s*( .*? )\s*$\s*-->) }
           { exists( $var->{$2} ) ?
                     $var->{$2}.$1 :
                     "";
           }gsex;

Sowas würde halt klappen, sieht aber irgendwie nicht sonderlich schön aus.