Perl Code ?

[Christian Kruse]

Hallo MoD,

kann mir mal jemand erklären, was dieser Code macht ?

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

"Ersetze 'Prozent-Zeichen gefolgt von einer Ziffer oder
 einem Buchstaben aus der Menge {a,b,c,d,e,f} oder einem
 Buchstaben aus der Menge {A,B,C,D,E,F} gefolgt von
 einer Ziffer oder einem Buchstaben aus der Menge
 {a,b,c,d,e,f} oder einem Buchstaben aus der Menge
 {A,B,C,D,E,F}' durch das Zeichen aus dem ASCII-Zeichensatz
 des entsprechenden Hex-Wertes des Musters"

Auf Deutsch: übersetze alle URL-encodierten Zeichen durch
deren ASCII-Repraesentation.

$value =~ s/<!--(.|\n)*-->//g;

"Ersetze die Zeichenfolge '<!--' gefolgt von beliebig vielen
 beliebigen Zeichen oder beliebig vielen Newline-Zeichen
 durch nichts."

Auf deutsch: entferne HTML-Kommentare. Sinnvoller waere hier
der Ausdruck:

$value =~ s/<!--[^>]*-->//sg;

"Ersetze die Zeichenfolge '<!--' gefolgt von beliebigen
 Zeichen ausser dem groesser-als-Zeichen gefolgt von der
 Zeichenfolge '-->' durch nichts".

P.S. ich hab schon mal solch ein Posting abgeschickt ->
ging aber scheinbar verloren

Kleiner Tipp: Vorschau != erfolgreich abgeschickt ;)

Gruesse,
 CK