Ersetzen ( s///g ) nur X mal ausführen (Allgemeines zu Perl)

[thread]13943[/thread]

Ersetzen ( s///g ) nur X mal ausführen

Leser: 22

Articles: hide open all | hide show old branches

+8 replies
Gast Humbert

2009-08-27 17:23
Hallo zusammen,

ein Problem beschäftigt mich nun schon eine ganze Weile und ich finde keine Lösung - nun hoffe ich auf die hellen Köpfe hier, damit wir das Problem vielleicht gemeinsam lösen können.

In einem String möchte ich eine bestimmte Kombination (Regulärer Ausdruck:
(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\]) durch folgendes ersetzen:
<img src="$2">

Meine Lösung bis jetzt war:
Code (perl): (dl )

$mod_textformator_text =~ s/(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\])/<img src="$2">/g;
Was auch prima funktioniert. ABER ich möchte das Ersetzen eben begrenzen... d.h. $count = 1; dann soll eben das Search/Replace nur auf 1 Element angewendet werden und danach alle weitere ignorieren - bei 2 auf zwei usw.

Wäre super, wenn mir jemand helfen könnte, denn vorher komme ich einfach nicht mehr zur Ruhe.

Viele Grüße
Humbert
- +3 replies
- pq
  
  2009-08-27 17:41
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  hm, meine erste reaktion war Parse::BBCode - aber dort kann man nicht einstellen, ob ein element nur einmal erlaubt ist oder nicht.
  aber du könntest es trotzdem verwenden und den resultierenden baum durchlaufen. wenn du da sowieso bbcode vorliegen hast, wäre das wohl empfehlenswert.
  
  um generell eine regex nur einmal anzuwenden, dass das g bei /g weg.
  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
  - +2 replies
  - Gast Humbert
    
    2009-08-27 17:57
    Hi,
    danke für deine Antwort.
    Das Problem ist halt leider, dass auch der Wert variiert - mal sollen zwei ersetzt werden, mal eins mal keins.
    
    Wäre dies möglich?:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    $maxcount = 2; #replace anzahl $count = 0; #anfang while($count < $maxcount) { $mod_textformator_text =~ s/(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\])/<img src="$2">/; $count=$count + 1; }
    
    Viele Grüße
    Humbert
    - pq
      
      2009-08-27 18:48
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wie die anderen schon gesagt haben und ich auch impliziert hatte, kannst du es mit einer schleife lösen.
      
      wenn du aber lust auf ein bisschen regex-foo hast:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      $s = "foo img123 bar img456 baz img789 boo"; my $c = 0; my $max = 2; $s =~ s/(img)(\d+)/++$c > $max ? "$1$2" : qq{<img src="$2">}/eg; print $s; __END__ Ausgabe: foo <img src="123"> bar <img src="456"> baz img789 boo
      
      hier wird in dem ersetzungsteil perl ausgeführt.
      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
- Gast wer
  
  2009-08-27 17:55
  Pack das ganze in eine Schleife:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $counter=5; while($mod_textformator_text =~ s/(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\])/<img src="$2">/) { $counter--; last if($counter==0) } print "$counter mal Ersetzt.\n";
- +2 replies
- Linuxer
  
  2009-08-27 17:56
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  ich würde eine Schleife verwenden, um den Zähler zu nutzen, wie oft ersetzt werden soll und dann, wie pq schon schrieb, beim Ersetzen den /g Modifier weglassen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl -l use strict; use warnings; my $str = 'aaaa5aaaa0'; my $cnt = 7; for my $i ( 1 .. $cnt ) { # ersetze oder Abbruch, wenn keine Ersetzung (mehr) moeglich $str =~ s/a/X/ || last; print $i; } print $str;
  
  Last edited: 2009-08-27 18:01:39 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Gast Humbert
    
    2009-08-27 18:05
    
    Ich danke euch allen, ich bin wirklich überwältigt von so viel Hilfsbereitschaft - dank euch kann ich endlich weiter machen. Vielen, vielen Dank!
- Gast Coder
  
  2009-08-27 18:56
  Habe just ein ähnliches Problem gehabt und musste zählen, wie oft ein Punkt in einem Scalar vorkommt, um daraus weitere Handlungen abzuleiten.
  
  Ob es für Dich paßt, weiß ich nicht, ist nur ein Denkanstoß:
  
  Code (perl): (dl )
  
  my $count = ($wert =~ tr/[0-9]//c);
  
  liefert die Anzahl des Vorkommens von Zeichen außerhalb des Regex innerhalb von $wert
  Damit könntest Du die Anzahl Ersetzungen bestimmen und einen gezielten ~s nachschieben.

View all threads created 2009-08-27 17:23.