Umlaute finden (gelöst) (Allgemeines zu Perl)

[thread]20421[/thread]

Umlaute finden [gelöst]

Tags: perl5 Umlaute finden Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
hago

2018-01-23 08:40
User since
2016-05-29
31 Artikel
BenutzerIn
Hallo,
ich habe etwas geschrieben, da sollen Leute an einer (Windows-)Konsole Text eingeben. Die Umlaute will ich finden und durch html-Sonderzeichen ersetzen.
Nach einigem erfolglosen Probieren habe ich folgendes versucht (eingabe:"knüller"):
Code: (dl )

1 2 3 4 5

my $xx = "brüller"; chop($titel = <>); if($titel =~ /ü/){ print $titel."1";} # keine Ausgabe if($titel !~ /ü/){ print $titel."2";} # Ausgabe: knüller2 - perfektes "ü" if($xx =~ /ü/){ print $xx;} # Ausgabe: br³ller "Ü2 wird ersetzt durch "³"
ich verstehe das nicht.
Was kann ich machen, um die Umlaute zu finden?

Gruß, Hago
- +6 replies
- Raubtier
  
  2018-01-23 08:57
  
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  
  Bei Umlauten gibt es mehre Dinge zu betrachten:
  a) in welcher Kodierung ist dein Perl-Script gespeichert?
  b) in welcher Kodierung erfolgt die Eingabe?
  c) in welcher Kodierung erfolgt die Ausgabe?
  
  Wenn du "use utf8;" verwendest, zeigst du Perl an, dass du dein Script in utf-8 gespeichert hast (dann sollte das aber auch stimmen und das Script nicht in Windows-1252 gespeichert sein!). Somit wird die üs in deinem Programm (also sowohl bei der Zuweisung an $xx als auch in den Regex) korrekt als solches erkannt.
  
  Dann musst du nur noch Ein- und Ausgabe umwandeln. Die Eingabe mit decode, die Ausgabe mit encode. Ich bin kein Windows-Experte, meine aber mich zu erinnern, dass Windows Codepage 850 verwendet (gibt es "chcp" noch? - gib es einfach mal auf Windows-Kommandozeile ein!)
  
  Hier ein exzellenter Artikel:
  https://perlgeek.de/de/artikel/charsets-unicode
  Last edited: 2018-01-23 08:59:28 +0100 (CET)
  - +2 replies
  - Muffi
    
    2018-01-23 09:30
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Mein Win10 hat zumindest noch die 850.
    
    Das hilft bei mir:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    BEGIN { binmode(STDOUT, ":encoding(cp850)"); binmode(STDIN, ":encoding(cp850)"); }
    
    1 + 1 = 10
    - hago
      
      2018-01-23 10:03
      
      User since
      2016-05-29
      31 Artikel
      BenutzerIn
      
      Danke Muffi, ich hab's versucht.
      Es klappt auch damit perfekt.
  - +3 replies
  - hago
    
    2018-01-23 10:00
    User since
    2016-05-29
    31 Artikel
    BenutzerIn
    
    Danke Raubtier, das war die richtige Information.
    Ich habe jetzt einfach
    
    Code: (dl )
    
    system('chcp 28592'); #ISO 8859-2
    
    vor die Eingabeaufforderung geschrieben, und schon wird alles richtig übertragen und richtig angezeigt.
    Last edited: 2018-01-23 10:05:06 +0100 (CET)
    - +2 replies
    - hago
      
      2018-01-23 13:11
      
      User since
      2016-05-29
      31 Artikel
      BenutzerIn
      
      mir ist eben noch etwas Seltsames aufgefallen:
      es gibt in dem Script noch eine 2. Stelle, wo Benutzer Text eingeben können. Dort hatte ich bisher komischerweise noch nie Probleme mit Umlauten. Ich habe nun nachgeschaut, was dort eigentlich anders ist und nur diese Zeile gefunden, mit der ich verhindere, dass Nutzer Anführungszeichen eingeben:
      
      Code: (dl )
      
      $text =~ s/\"//g;
      
      Also habe ich diese Zeile mit $titel unter die erste Eingabestelle eingefügt und siehe da, die Umlaute werden richtig übertragen, auch ohne die Erwähnung einer Codepage.
      Es würde mich sehr interessieren, wie das zustande kommt.
      - hago
        
        2018-01-23 13:19
        
        User since
        2016-05-29
        31 Artikel
        BenutzerIn
        
        Ah, alles Quatsch, ich hatte nur vergessen zu speichern, nachdem ich die zwei binmode...-Zeilen raus gemacht hatte.

View all threads created 2018-01-23 08:40.