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

ich
 2010-11-09 17:58
#142594 #142594
User since
2003-09-19
120 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo GwenDragon,

ueber einen regulaeren Ausdruck habe ich jetzt nicht weiter nachgedacht. Was mir da zuerst in den Sinn gekommen ist war ein Funktionsaufruf.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

my $regex_img = qr{<img([^>]+)src="([^"]+)"([^>]+)>};
$body =~ s#$regex_img#img_parse($1, $2, $3)#igme;

sub img_parse {
   my $a = shift;
   my $img_url = shift;
   my $b = shift;

   if($img_url =~ m/^(https?|ftp):\/\//) {
      return '<img'.$a.'src="'.$img_url.'"' . $b . '>';
   } else {
      return '<img'.$a.'src="'.$path.'/'.$img_url.'"' . $b . '>';
   }
}


Edit:
Ansonsten ist mir gerade das hier noch in den Sinn gekommen. (base href tag)
Last edited: 2010-11-09 18:04:33 +0100 (CET)
If you tell the truth you don't have to remember anything.
-- Mark Twain

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