Suchen und ersetzen nur wenn mit regex (Allgemeines zu Perl)

[thread]19706[/thread]

Suchen und ersetzen nur wenn mit regex

Tags: perl5 regex Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
Gast Mathias

2015-06-30 15:04
Hallo Perl Community

ich habe diverse Textzeilen welche nicht suaber eingelesen konnten. Bei den Umlauten gabe es Probleme. Kann es leider nicht mehr ändern...

Jetzt gibt es Texte, bei denen das ü mit ) ersetzt wurde.
Das kann man mit
Code (perl): (dl )

$message =~ s/)/ü/;
ersetzten. Jetzt ist es aber so, dass es Texte gibt in dem (1234) steht, welches NICHT ersetzt werden muss. Also Anführungszeichen mit vier Zahlen, gefolgt von einem Schlusszeichen.

Bsp:
$message = "Der Code (1234) steht auf dem K)hlschrank";

Müsste dann so heissen :
$message = "Der Code (1234) steht auf dem Kühlschrank";

Kann man das in einer Abfrage machen?
Last edited: 2015-06-30 15:11:35 +0200 (CEST)
- +3 replies
- Linuxer
  
  2015-06-30 15:19
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Du kannst im Regex angeben, dass nur eine ")" gefunden werden soll, die nicht von Zahlen gefolgt sein darf oder nicht nach Zahlen stehen darf.
  
  Siehe http://perldoc.perl.org/perlre.html#Look-Around-As...
  
  edit: Klammer korrigiert, Satz ergänzt
  Last edited: 2015-06-30 15:36:04 +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!
  - +2 replies
  - Gast Mathias
    
    2015-07-02 10:55
    Hallo Linuxer
    
    eigentlich genügt mir
    
    Code: (dl )
    
    1 2 3
    
    $message = "Der Code (1234) steht auf dem K)hlschrank"; $message =~ s/[a-zA-Z]\)/ü/g; Der Code (1234) steht auf dem ühlschrank
    
    aber jetzt wird mir das Zeichen vor dem "ü" abgeschnitten. Meine Regex Kenntnisse etwas bescheiden...
    
    Danke für die Hilfe
    Mathias
    Last edited: 2015-07-02 10:56:16 +0200 (CEST)
    - Raubtier
      
      2015-07-02 14:00
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Dann musst du das weggeschnittene Zeichen halt wieder einfügen:
      
      Code (perl): (dl )
      
      s/([a-zA-Z])\)/${1}ü/g;
- FIFO
  
  2015-07-02 13:34
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Guest Mathias
  Also Anführungszeichen mit vier Zahlen, gefolgt von einem Schlusszeichen.
  
  Bsp:
  $message = "Der Code (1234) steht auf dem K)hlschrank";
  
  Wie schon gesagt: Negativer Lookbehind:
  
  Code (perl): (dl )
  
  $message =~ s/ (?<!\d{4}) \) /ü/gx;
  
  Beachte, dass hier nur kleine ü verwendet werden.
  
  Mehr zu Lookarounds z.B. hier
  
  Editiert von FIFO: typo, link
  Last edited: 2015-07-02 13:35:46 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View all threads created 2015-06-30 15:04.