nicht angemeldet
Hi,
Mmh... hast Du diesen Code getestet? Irgendwie finde ich ihn recht seltsam, und die Ergebnisse, die er liefert, sind vermutlich nicht das, was Du Dir erhofft hast.
»
In der Tat hab ich den Code etwas gekuerzt als ich ihn aufs Forum packte und dabei etwas falsch gemacht :(
Das Orginal hat die RegExp in eine if()-Schleife, die in der While-Schleife ist. Ausserdem hatte ich einer Variable den Wert von $2 vor dem Push gegeben und dann diese Variable gepusht..
Schande auf mein Haupt, das hatte ich voellig verpennt, das das etwas kritisch ist...
Dein Loesung ist aber cool!
Aber bei der Erstetzung
s/<.*?>//g; (anstelle von s/<([^>]\s+)*>//g; )
hab ich bedenken, da im String ja noch immer Zeilenumbruehe vorkommen koennten, die dort nicht einen Strich durch die Rechnung machen?
Jedenfalls sagt mir das die Perldoc (link:http://www.rrze.uni-erlangen.de/webadm/perl/pod/perlre.html) ?
Ciao,
Wolfgang