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

[thread]6496[/thread]

Suchen/Ersetzen: Ersetzung vor dem Gesuchten einsetzen

Johannes

2004-08-13 19:52

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

Hallo.

Code: (dl )

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

Ich habe eine Hashreferenz mit einem Wert, der hier ersetzt wird. Nun will ich allerdings die Ersetzung vor dem Gesuchten "einsetzen", und das Gesuchte erhalten. Wie macht man dies am besten/performantesten?

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.

View all threads created 2004-08-13 19:52.