Regex gesucht (solved) (Allgemeines zu Perl)

[thread]20003[/thread]

Regex gesucht [solved]

Tags: perl5 Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+7 replies
kristian

2016-03-01 09:09
User since
2005-04-14
684 articles
BenutzerIn
Hallo,

ich habe Links, die ich auf die Schnelle mit einer regex ändern will.

aus
Code: (dl )

a href="/seite1.html"
soll
Code: (dl )

a href="/amp/seite1.html"
werden.
Mein Versuch
Code (perl): (dl )

1 while($result =~ s!a href="/(.*?)"!a href="/amp$1"!gm);
ergibt eine Endlosschleife mit diversen /amp.
Es soll aber nur einmal das "/amp" eingefügt werden, falls noch nicht vorhanden.

TIA & Gruß
Kristian
- +5 replies
- Muffi
  
  2016-03-01 09:54
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Und warums schreibst dus dann in eine while-schleife?
  1 + 1 = 10
  - +4 replies
  - kristian
    
    2016-03-01 10:07
    User since
    2005-04-14
    684 articles
    BenutzerIn
    
    2016-03-01T08:54:25 Muffi
    Und warums schreibst dus dann in eine while-schleife?
    
    Brett vorm Kopf ;-)
    
    Code (perl): (dl )
    
    $result =~ s!a href="/(.*?)"!a href="/amp/$1"!gm;
    
    hilft mir aber auch nicht, wenn schon ein /amp da steht.
    - betterworld
      
      2016-03-01 11:30
      
      User since
      2003-08-21
      2614 articles
      ModeratorIn
      
      Du brauchst "negative look-ahead" :)
      Lieblingsmodule: IPC::System::Simple, Path::Class
    - GwenDragon
      
      2016-03-01 11:55
      
      User since
      2005-01-17
      14816 articles
      Admin1
      
      Siehe Beispiele für Negative Look Ahead unter 518444
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Muffi
      
      2016-03-01 13:35
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Als Alternative zu dem look ahead geht's auch pragmatisch mit
      
      Code: (dl )
      
      1 2 3
      
      (Pseudocode) if $result !~ /amp/... { <regex>
      
      1 + 1 = 10
- kristian
  
  2016-03-01 16:00
  User since
  2005-04-14
  684 articles
  BenutzerIn
  Meine Lösung:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  $result =~ s#a\s+href="/ ( (?: (?!amp) . )*? ) \.html" #a href="/amp/$1.html"#xmg;
  
  Danke für die guten Tipps!

View all threads created 2016-03-01 09:09.