Term::ReadKey::ReadKey Codierungsfrage (Allgemeines zu Perl)

[thread]19182[/thread]

Term::ReadKey::ReadKey Codierungsfrage

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+14 replies
Kuerbis

2014-07-06 21:09
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo,

warum braucht es beim folgenden Script, wenn ich es in einer Windows-Konsole ausführe ein zusätzliches decode um ein korrektes "ö" zu bekommen?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/env perl use warnings; use strict; use 5.10.1; use Encode; use Term::ReadKey; use Encode::Locale; binmode STDOUT, 'encoding(console_out)'; binmode STDIN, 'encoding(console_in)'; ReadMode 'cbreak'; my $key = ReadKey(); say decode( 'console_out', $key ); # Windows: ö - Linux: � say $key; # Windows: "\x{0094}" does not map to cp850 at ...19. - Linux: ö # \x{0094} ReadMode 'restore';
- +2 replies
- pq
  
  2014-07-06 21:50
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ich weiss nicht (mangels windows), aber das binmode müsste laut doku eigentlich so aussehen:
  binmode STDOUT, ":encoding(console_out)";
  also mit doppelpunkt. unter linux scheint aber beides (mit und ohne doppelpunkt) dasselbe zu tun.
  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
  - Kuerbis
    
    2014-07-06 22:52
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Das habe ich übersehen. Aber das Einfügen der Doppelpunkte hat nichts geändert.
- +11 replies
- GwenDragon
  
  2014-07-07 08:41
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Wenn ich die Konsole mit chcp 1252 umstelle, läuft das Programm ohne Fehler.
  
  Microsoft Windows [Version 6.1.7601] Copyright (c) 2009 Microsoft Corporation. Alle Rechte vorbehalten. U:\>perl -MEncode::Locale -E "say $Encode::Locale::ENCODING_LOCALE" cp1252 U:\>chcp Aktive Codepage: 850.
  Wie du siehst, errät Encode::Locale das Encoding falsch.
  
  Siehe auch:
  https://metacpan.org/pod/Encode::Locale#ENCODING_L...
  https://metacpan.org/pod/Encode::Locale#Windows
  
  //EDIT:
  Microsoft Windows [Version 6.1.7601] Copyright (c) 2009 Microsoft Corporation. Alle Rechte vorbehalten. T:\>chcp Aktive Codepage: 850. T:\>rk.pl ä "\x{0084}" does not map to cp1252 at T:\rk.pl line 21. \x{0084} T:\>chcp 1252 Aktive Codepage: 1252. T:\>rk.pl ä ä
  Last edited: 2014-07-07 09:03:36 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +10 replies
  - Kuerbis
    
    2014-07-07 11:24
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
    
    #!/usr/bin/env perl use warnings; use strict; use 5.10.1; use Encode; use Term::ReadKey; use Encode::Locale; binmode STDOUT, ":encoding(console_out)"; binmode STDIN, ":encoding(console_in)"; say $Encode::Locale::ENCODING_LOCALE; say $Encode::Locale::ENCODING_LOCALE_FS; say $Encode::Locale::ENCODING_CONSOLE_OUT; say $Encode::Locale::ENCODING_CONSOLE_IN; say ""; ReadMode 'cbreak'; my $key = ReadKey(); say "|$key|"; $key = decode( 'console_out', $key ); say "|$key|"; ReadMode 'restore';
    
    Mit cp850
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    cp1252 cp1252 cp850 cp850 "\x{0094}" does not map to cp850 at ... line 21. |\x{0094}| |ö|
    
    und mit cp1252 bekomme ich das:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    cp1252 cp1252 cp1252 cp1252 |÷| |÷|
    - +2 replies
    - Raubtier
      
      2014-07-07 11:37
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Ich habe kein Windows da, daher kann ich leider nicht testen. Aber:
      
      Quote
      
      Code: (dl )
      
      $key = decode( 'console_out', $key );
      
      erscheint mit falsch.
      
      Decode konvertiert von einer Kodierung in Perls interne Kodierung. Von daher müsste das doch von console_in sein, nicht von console_out. Und mit dem binmode von STDIN könnte das ggf. doppelt gemoppelt sein.
      - Kuerbis
        
        2014-07-07 12:13
        
        User since
        2011-03-20
        947 Artikel
        BenutzerIn
        
        Habe ich übersehen. Aber das sollte hier keinen Unterschied machen, da console_in und console_out den gleichen Wert haben.
    - +7 replies
    - GwenDragon
      
      2014-07-07 13:31
      
      User since
      2005-01-17
      14761 Artikel
      Admin1
      
      Solange du Encode::Locale nicht sagst, welches Encoding deine Windows-Kosnole verwendet, gehts nicht.
      Ich schrieb doch schon, das Modul hat eigene, leider nicht immer korrekte "Rätselmodi" (siehe Modul-Code), um zu erraten wann welches Encoding in der Konsole verwendet wurde.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
      
      #!/usr/bin/env perl use warnings; use strict; use 5.10.1; use Encode; use Term::ReadKey; use Encode::Locale; Encode::Locale::reinit('cp850'); # set to standard CP850 =Latin1 binmode STDOUT, ":encoding(console_out)"; binmode STDIN, ":encoding(console_in)"; say $Encode::Locale::ENCODING_LOCALE; say $Encode::Locale::ENCODING_LOCALE_FS; say $Encode::Locale::ENCODING_CONSOLE_OUT; say $Encode::Locale::ENCODING_CONSOLE_IN; say ""; ReadMode 'cbreak'; my $key = ReadKey(); say "|$key|"; $key = decode( 'console_out', $key ); say "|$key|"; ReadMode 'restore';
      
      U:\>chcp Aktive Codepage: 850. U:\>test.pl cp850 cp850 cp850 cp850 "\x{0094}" does not map to cp850 at test.pl line 23. |\x{0094}| |ö|
      
      U:\>chcp 1252 Aktive Codepage: 1252. U:\>test.pl cp850 cp850 cp850 cp850 |”| |ö|
      
      Editiert von GwenDragon: Hinweis auf "Erkennung" der Codepage bei Win32
      Last edited: 2014-07-07 14:20:49 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - Kuerbis
        
        2014-07-07 14:22
        
        User since
        2011-03-20
        947 Artikel
        BenutzerIn
        
        Wenn ich das alles so befolge, dann funktioniert das normale readline nicht mehr.
        
        Code (perl): (dl )
        
        1 2 3
        
        my $in = <STDIN>; chomp $in; say "[$in]"; # sieht in der Konsole so aus: |÷| statt |ö|
        
        +5 replies
        
        GwenDragon
        
        2014-07-07 14:33
        
        User since
        2005-01-17
        14761 Artikel
        Admin1
        
        Wenn du bitte nicht genauer sagst, bei welchem code es hakt, ist es schwierig, weil ich muss versuchen deine Fehler und deine Codeteile zu erraten oder zu probieren, was du anders gemacht haben könntest.
        Bitte sei so nett und gib mir ein Testcase, dass ich nachvollziehen kann.
        
        2014-07-07T12:22:50 Kuerbis
        (...) das normale readline nicht mehr.
        Da ist kein Term::readline! Wo?
        //EDIT: Axo, du meinst das CORE::readline, entschuldige. ;)
        
        2014-07-07T12:22:50 Kuerbis
        Wenn ich das alles so befolge(...)
        
        Und wie "befolgst" du das?
        Bitte Beispielcode wo es nicht geht.
        
        //EDIT:
        
        test2.pl:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
        
        #!/usr/bin/env perl use warnings; use strict; use 5.10.1; use Encode; use Term::ReadKey; use Encode::Locale; Encode::Locale::reinit('cp850'); # set to standard CP850 =Latin1 binmode STDOUT, ":encoding(console_out)"; binmode STDIN, ":encoding(console_in)"; say $Encode::Locale::ENCODING_LOCALE; say $Encode::Locale::ENCODING_LOCALE_FS; say $Encode::Locale::ENCODING_CONSOLE_OUT; say $Encode::Locale::ENCODING_CONSOLE_IN; say ""; do { ReadMode 'cbreak'; my $key = ReadKey(); say "|$key|"; $key = decode( 'console_out', $key ); say "|$key|"; ReadMode 'restore'; }; do { my $in = <STDIN>; chomp $in; say "[$in]"; };
        
        U:\>chcp 1252 Aktive Codepage: 1252. U:\>test2.pl cp850 cp850 cp850 cp850 |”| |ö| ö [ö] U:\>
        
        Vielleicht klären wir erst mal ab, welches Perl und welche Module du da benutzt ;)
        Editiert von GwenDragon: Code für mein Tesctase 2; Frage nach Perl-/Modul-Versionen
        Last edited: 2014-07-07 14:54:38 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        Kuerbis
        
        2014-07-07 15:53
        
        User since
        2011-03-20
        947 Artikel
        BenutzerIn
        
        Win XP
        Aktive Codepage: 1252.
        Perl 5.18.2
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
        
        use strict; use 5.10.1; use Encode; use Term::ReadKey; use Encode::Locale; Encode::Locale::reinit('cp850'); binmode STDOUT, ":encoding(console_out)"; binmode STDIN, ":encoding(console_in)"; say $Encode::Locale::VERSION; say $Term::ReadKey::VERSION; say $Encode::Locale::ENCODING_LOCALE; say $Encode::Locale::ENCODING_LOCALE_FS; say $Encode::Locale::ENCODING_CONSOLE_OUT; say $Encode::Locale::ENCODING_CONSOLE_IN; say ""; ReadMode 'cbreak'; $| = 1; my $key = ReadKey(); say "|$key|"; ReadMode 'restore'; my $in = <STDIN>; chomp $in; say "[$in]";
        
        So sieht die Ausgabe in der Windows Konsole aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        1.03 2.31 cp850 cp850 cp850 cp850 |ö| ÷ [÷]
        
        GwenDragon
        
        2014-07-07 15:59
        
        User since
        2005-01-17
        14761 Artikel
        Admin1
        
        Seltsam. Ich habs mal mit deinem Test probiert.
        
        1. Test mit Standardeinstellung (von WIndows 7 ist CP850)
        
        U:>perldev 5.18 -------------------------------------------------------------------------------- 5.018002 @ C:\strawberry\perl\bin\perl.exe -------------------------------------------------------------------------------- PERL-5.18 U:\>test-nok.pl 1.03 2.31 cp850 cp850 cp850 cp850 "\x{0094}" does not map to cp850 at test-nok.pl line 24. |\x{0094}| ö [ö] PERL-5.18 U:\>
        
        und
        
        1. Test mit Umstellung auf CP1252
        
        U:\>chcp 1252 Aktive Codepage: 1252. U:\>test-nok.pl 1.03 2.31 cp850 cp850 cp850 cp850 |”| ö [ö] U:\>
        
        XP müsste ich mal in einer VM testen. Dauert aber noch etwas.
        
        Editiert von GwenDragon: richtige Kopie der Konsolenausgabe; Hinweis auf Test mit XP
        Last edited: 2014-07-07 16:19:34 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        GwenDragon
        
        2014-07-07 16:59
        
        User since
        2005-01-17
        14761 Artikel
        Admin1
        
        2014-07-07T13:53:02 Kuerbis
        Win XP
        Aktive Codepage: 1252.
        Perl 5.18.2
        (...)
        
        So sieht die Ausgabe in der Windows Konsole aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        1.03 2.31 cp850 cp850 cp850 cp850 |ö| ÷ [÷]
        
        Kann ich unter XP SP2 nur einmal nachvollziehen.
        
        //EDIT:
        Weitere Versuche zeigen das ö beim readline aber nicht beim ReadKey richtig an =(
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        1.03 2.31 cp850 cp850 cp850 cp850 |"| ö [ö]
        
        //EDIT:
        Kannst du das bitte mal mit Encode::Locale ohne Term::ReadKey testen? Vielleicht spielt ja das ReadKey() da rein.
        Last edited: 2014-07-07 17:29:53 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Kuerbis
        
        2014-07-07 18:40
        
        User since
        2011-03-20
        947 Artikel
        BenutzerIn
        
        Term::ReadKey wegzulassen hat nichts verändert (außer dass Readkey weg war).
        
        Ich werde es mit einem bedingten decode für Windows versuchen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
        
        #!/usr/bin/env perl use warnings; use strict; use 5.10.1; use Encode; use Term::ReadKey; use Encode::Locale; use Term::ReadLine; #Encode::Locale::reinit('cp850'); print `chcp` if $^O eq 'MSWin32'; binmode STDOUT, ":encoding(console_out)"; binmode STDIN, ":encoding(console_in)"; say $Encode::Locale::ENCODING_LOCALE; say $Encode::Locale::ENCODING_LOCALE_FS; say $Encode::Locale::ENCODING_CONSOLE_OUT; say $Encode::Locale::ENCODING_CONSOLE_IN; say ""; ReadMode 'cbreak'; $| = 1; print ': '; my $key = ReadKey(); $key = decode( 'console_in', $key ) if $^O eq 'MSWin32'; say "\nReadKey|$key|"; ReadMode 'restore'; say "========================="; print ': '; my $in = readline; chomp $in; say 'readline[' . $in . ']'; say "========================="; my $term = Term::ReadLine->new( 'Text' ); $term->ornaments( 0 ); my $con = $term->readline( ': ' ); $con = decode( 'console_in', $con ); say $term->ReadLine . "{$con}";

View all threads created 2014-07-06 21:09.