Windows: InputChar mit mulit-byte Encoding (Allgemeines zu Perl)

[thread]19188[/thread]

Windows: InputChar mit mulit-byte Encoding

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+5 replies

Kuerbis

2014-07-11 09:18

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Hallo,

wie kann ich herausfinden, wie sich dieses Script mit bei einem multi-byte Encoding verhält?

Code (perl): (dl )

#!perl
use warnings;
use strict;
use 5.10.0;
use utf8;
use Encode;
use Devel::Peek;
use Encode::Locale;
#Encode::Locale::reinit('utf-8');
binmode STDIN, ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

use Term::ReadKey;
ReadMode 3;
my $c = ReadKey;
$c = decode( 'console_in', $c );
Dump $c;
say "[$c]";
ReadMode 0;

use Win32::Console;
my $in = Win32::Console->new( STD_INPUT_HANDLE );
$in->Mode( ENABLE_PROCESSED_INPUT );
my $char = $in->InputChar();
$char = decode( 'console_in', $char );
Dump $char;
say "{$char}";

+4 replies
rosti

2014-07-11 09:29

User since
2011-03-19
3470 Artikel
BenutzerIn

Einen Dump Loggen und gucken was da ankommt :)
- +3 replies
- Kuerbis
  
  2014-07-11 10:35
  
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  
  Wie komme ich in einer Windows-Console zu einem multi-byte Encoding?
  - +2 replies
  - GwenDragon
    
    2014-07-11 11:48
    
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    Erzeuge dir eine Perldatei mit chinesischen, japanischen, arabischen Zeichen (kannst du in Zeichentabelle erzuegen), die dann auf STDOUT im Modus :raw ausgibt.
    Starte erste Perlprogramm und sende die Ausgabe an eine Pipe.
    Lies von deinem Perlprogramm diese Ausgabe ein.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Kuerbis
      
      2014-07-11 20:56
      
      User since
      2011-03-20
      947 Artikel
      BenutzerIn
      
      Mit
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use Term::ReadKey; my $c = ReadKey; Dump $c; say "[$c]";
      
      hat es funktioniert (Mit einem normalen <STDIN> auch).
      
      Es ist
      
      Code: (dl )
      
      type Datei_mit_Smily.txt | perl.pl
      
      .
      
      Mit
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      use Term::ReadKey; use Encode::Locale; ReadMode 3; my $c = ReadKey; $c = decode( 'console_in', $c ); Dump $c; say "[$c]"; ReadMode 0;
      
      gabs einen Fehler:
      
      Code: (dl )
      
      GetConsoleMode failed, LastError=|6| at C:/strawberry/perl/vendor/lib/Term/ReadKey.pm line 309.
      
      Dieses Script hat mit dieser Methode nicht funktioniert:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      use Win32::Console; my $in = Win32::Console->new( STD_INPUT_HANDLE ); $in->Mode( ENABLE_PROCESSED_INPUT ); my $char = $in->InputChar(); #$char = decode( 'console_in', $char ); Dump $char; say "{$char}";
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      C:\Users\mm>type multibyte.txt | perl.pl SV = NULL(0x0) at 0x12fe81c REFCNT = 1 FLAGS = (PADMY) Use of uninitialized value $char in concatenation (.) or string at C:\Users\mm\perl.pl line 23. {}

View all threads created 2014-07-11 09:18.