regexpr Problem (Allgemeines zu Perl)

[thread]13702[/thread]

regexpr Problem

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
Gast Seblon

2009-07-07 09:50
Hallo ich habe einen PHP-Code den ich versucht hab in Perl umzuschreiben. Leider klappt es nicht so wie ich das möchte. Er ersetzt nur das erste Vorkommen.

Der original PHP-Code:
Code: (dl )

$bodytext = preg_replace('#href="http://(.*)".*>#iU', 'href="http://www.xxx.de/redirect.php?url=\1" target="_blank">', $bodytext);
Der Code sucht nach href="http://irgendwas/" [optional steht hier auch noch irgendwas]> und ersetzt ihn für jeden treffer durch href="http://www.xxx.de/redirect.php?url=irgendwas" target="_blank">

Nun mein Versuch in Perl:
Code (perl): (dl )

$bodytext =~ s/\href="http:\/\/(.*)".*?>/href="http:\/\/www.xxx.de\/redirect.php?url=$1" target="_blank">/g;
Wie gesagt funktioniert das nur beim ersten Vorkommen aber den Rest lässt er unverändert. Ich bräuchte das nun so das er jedes Vorkommen ersetzt.

Vielen Dank schonmal!
- pq
  
  2009-07-07 11:05
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Das hat nix mit CGI zu tun. ich verschiebe das mal nach allgemeines.
  
  Move from Perl/CGI to Allgemeines zu Perl
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- #Kein Kommentar
  
  2009-07-07 14:09
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  ungetestet:
  
  Code (perl): (dl )
  
  $bodytext =~ s!href=\"http://(.*?)\".*?\>!href=\"http://www.xxx.de/redirect.php?url=$1\" target=\"_blank\"\>!g;
  
  ich habe als splitter ! anstatt / genommen und noch ein nicht gierig zeichen reingesetzt
  Last edited: 2009-07-07 14:10:11 +0200 (CEST)
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
- +3 replies
- GwenDragon
  
  2009-07-07 15:56
  User since
  2005-01-17
  14787 Artikel
  Admin1
  Guest Seblon
  
  Code: (dl )
  
  $bodytext = preg_replace('#href="http://(.*)".*>#iU', 'href="http://www.xxx.de/redirect.php?url=\1" target="_blank">', $bodytext);
  
  Der Code sucht nach href="http://irgendwas/" [optional steht hier auch noch irgendwas]> und ersetzt ihn für jeden treffer durch href="http://www.xxx.de/redirect.php?url=irgendwas" target="_blank">
  
  . matcht übrigens auf Alles und Nichts!
  Was bedeutet:
  
  Code: (dl )
  
  href="http://(.*)".*>
  
  matcht auch auf
  
  Code: (dl )
  
  href="http://">
  
  Besser wäre wohl in Perl als regex:
  
  Code: (dl )
  
  s/href="http:\/\/([^"]+)">/href="http:\/\/www.xxx.de\/redirect.php?url=\1" target="_blank">/i
  
  Last edited: 2009-07-07 16:05:08 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - scriptor
    
    2009-07-07 17:19
    
    User since
    2008-05-07
    69 Artikel
    BenutzerIn
    
    ... und ich dachte, TARGET gibt es nicht mehr! ;-)
    - GwenDragon
      
      2009-07-07 19:04
      
      User since
      2005-01-17
      14787 Artikel
      Admin1
      
      2009-07-07T15:19:59 scriptor
      ... und ich dachte, TARGET gibt es nicht mehr! ;-)
      
      WWW, vergib ihnen, denn sie wissen nicht was sie tun. :P
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Seblon
  
  2009-07-07 16:43
  
  User since
  2009-07-07
  1 Artikel
  BenutzerIn
  
  Besten Dank an euch alle es funktioniert nun :-)

View all threads created 2009-07-07 09:50.