Regex - in einem bestimmten Bereich suchen und strings ersetzen (gelöst) (Allgemeines zu Perl)

[thread]17602[/thread]

Regex - in einem bestimmten Bereich suchen und strings ersetzen [gelöst]

Tags: perl5 regex suchen ersetzten Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
Gustl

2012-07-27 22:59
User since
2011-01-27
441 Artikel
BenutzerIn
Hallo,

ich möchte aus einer Zeichenkette in einem bestimmten Bereich alle strings die wie zb "BR" durch "YY" ersetzten..

Folgender Zeichenkette:
BC BR BD POINT_A DN HN JN BR NK BR POINT_E BR NH BR CJ POINT_A MK NE BR BD BR POINT_E BR BD

Zwischen POINT_A und POINT_B sollen also alle strings "BR" durch "YY" ersetzt werden, quasi die hier fett dargestellten. Die kursiven sollen aber so bleiben. und genau da ist mein Problem. :(

1. Ansatz:
Code: (dl )

$content =~ s/(BR)/YY/g;
2. Ansatz:
Code: (dl )

$content =~ s/POINT_A(BR)POINT_E/YY/g;
Im ersten werden alle ersetzt. Und im zweiten Ansatz ersetzt er dann alles zwischen den points mit inhalt...
Weiß wer wo ich da ansetzten muss? Wäre super.

Gruß
- +2 replies
- renee
  
  2012-07-27 23:13
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Wenn es nicht in einem einzigen Regex sein muss, kannst Du es auch so machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; my $string = 'BC BR BD POINT_A DN HN JN BR NK BR POINT_E BR NH BR CJ POINT_A MK NE BR BD BR POINT_E BR BD'; my @parts = split /(POINT_[AE])/,$string; for( my $i = 2; $i < $#parts; $i+=4 ) { $parts[$i] =~ s/\bBR\b/YY/g; } $string = join '', @parts; print $string;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Gustl
    
    2012-07-28 00:16
    
    User since
    2011-01-27
    441 Artikel
    BenutzerIn
    
    Daran habe ich gar nicht gedacht, dies mit Perl zu lösen, war zusehr auf Regex fixiert. :)
    
    Echt klasse, danke dir. Wo ist der "Gefällt mir"-Button? :D
    
    Gruß und Gute Nacht
    Gustl

View all threads created 2012-07-27 22:59.