regex img tag ersetzen (Allgemeines zu Perl)

[thread]5859[/thread]

regex img tag ersetzen

Tags: regex Ähnliche Threads

Leser: 1

mordur

2003-10-27 12:48

User since
2003-09-25
182 Artikel
BenutzerIn

ich möchte mit folgendem Quelltext den Bildtag aus dem Html löschen.

Code: (dl )

#!/usr/bin/perl
$text="<html><head></head><body><table><tr><td><a href=\"doof.seite\"><img src=\"as.bild\"><br>Hier klicken</a></td></tr></table></body></html>";
print $text,"\n";
$text=~s/<img (.+)>//g;
print $text,"\n";

Nur leider schneidet er alles ab dem Bildtag weg so das nach dem ersetzen nur noch bis zum link ausgegeben wird! Warum?

Strat

2003-10-27 13:11

User since
2003-08-04
5246 Artikel
ModeratorIn

.+ wirkt greedy (d.h. gierig; es versucht, soviel zu finden wie moeglich)
Versuche mal stattdessen .+?
das versucht, so wenig wie moeglich zu finden... (=non greedy)
Probleme gibt's damit allerdings, wenn der HTML-Code nicht korrekt ist (z. b. > im alt-tag vorkommt)\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

mordur

2003-10-27 13:20

User since
2003-09-25
182 Artikel
BenutzerIn

ok danke, das scheint jetzt zu gehen!

Dubu

2003-10-29 12:12

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=Strat,27.10.2003, 12:11]Probleme gibt's damit allerdings, wenn der HTML-Code nicht korrekt ist (z. b. > im alt-tag vorkommt)[/quote]
Was ist daran "nicht korrekt"? Das alt-Attribute ist %Text, und %Text ist CDATA, und CDATA ist Text im deklarierten Charset + Entities, d.h. nur das kaufmaennische Und ("&") muss durch seine Entity ("&") ersetzt werden und bei Bedarf noch die Delimiter.

View all threads created 2003-10-27 12:48.