Thread Perl 5.8: Regex für das Ersetzen bestimmter URL (4 answers)
Opened by GwenDragon at 2010-11-09 16:56

GwenDragon
 2010-11-09 16:56
#142589 #142589
User since
2005-01-17
14746 Artikel
Admin1
[Homepage]
user image
Ich habe vor, in einem generierten HTML (ca. 100KB) beim img-Element eine URL nur zu ersetzen, wenn es eine relative URL ist.

Der Onkel Friedl aus dem Kauzbuch hat mir leider nicht weiter geholfen.
Ist das mit einem Regex in Perl möglich?

Lookbehind geht ja so nicht wie im Code:(
Code (perl): (dl )
1
2
3
my $path = $ENV{HTTP_PATH_INFO};
my $regex_img = qr#<img(\b[^>]*)?src="(?<!https:\/\/|http:\/\/|ftp:\/\/)([^"]*)"(\b?[^>]*)?>#;
$body =~ s#$regex_img#<img$1src="$path/$2"$3>#igm;



PS: Ja, es gäbe auch noch CPAN:HTML::Parser, aber ich wollte das Ungetüm gerade nicht bemühen.

View full thread Perl 5.8: Regex für das Ersetzen bestimmter URL