[Wx][Windows] Encodingprobleme bei Inhalt aus Wx Fenstern (gelöst) (Graphische Oberflächen)

[thread]17332[/thread]

[Wx][Windows] Encodingprobleme bei Inhalt aus Wx Fenstern [gelöst]

Tags: perl5 GUI WxPerl Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
pope

2012-04-18 11:15
User since
2009-10-11
30 Artikel
BenutzerIn
Hallo Leute,

Ich bin gerade auf ein merkwürdiges Phänomen gestoßen.

Wenn ich den Inhalt aus einem Wx-Fenster hole und zum Beispiel im Dateitest Operator verwende, werden Umlaute nicht richtig erkannt.

Minimalbeispiel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

use 5.12.0; use warnings; use Wx qw( wxID_OK ); my $dlg = Wx::FileDialog->new( undef ); exit unless $dlg->ShowModal == wxID_OK; my $path = $dlg->GetPath; say $path; say -e $path ? 1 : 0;
wenn ich hier z.B. eine Datei wie 'tüst.txt' aufrufe, schlägt der Dateitest fehl. Die Ausgabe von $path ist aber korrekt.

Ich habe festgestellt, dass alles korrekt Funktioniert, wenn ich den Wert von Wx encodiere:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

use 5.12.0; use warnings; use Wx qw( wxID_OK ); use Encode; my $dlg = Wx::FileDialog->new( undef ); exit unless $dlg->ShowModal == wxID_OK; my $path = $dlg->GetPath; $path = Encode::encode( 'cp1252', $path ); say $path; say -e $path ? 1 : 0;
Das an allen Stellen in meinen Code zu machen ist aber nun verdammt umständlich...

Kann das jemand nachvollziehen?
Vielleicht auch mal unter einem Linux?

Das Problem seh ich nicht nur hier. Ich bin jetzt etwas unsicher, ob ich den Werten aus Wx Fenstern auch an anderen Stellen nicht trauen kann.
Last edited: 2012-04-18 11:26:28 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2012-04-18 11:41
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Sieht nach UTF-Problem aus.
  Sobald ein Skript (egal ob Wx oder sonstwas) als UTF-8 kodiert oder Perl-intern (in Modulen o. ä.) das utf-Flag gesetzt ist, funktioniert der Dateitest mit -e nicht mehr.
  Lösung weiß ich gerade nicht.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - moritz
    
    2012-04-18 13:39
    
    User since
    2007-05-11
    923 Artikel
    HausmeisterIn
    
    Die Lösung ist, den Dateinamen mit Encode::encode zu kodieren, in die Zeichenkodierung die das System benutzt.
    Perl 6 - Perls Zukunft
    - +3 replies
    - GwenDragon
      
      2012-04-18 14:08
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das ist mir klar, er wollte diese Lösung doch aber nicht, wie er im Starthread schreibt.
      Für mich wäre eher eine Lösung, das in WX als Framework zu korrigieren.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - pope
        
        2012-04-18 14:30
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        hm, scheint bekanntes Problem zu sein
        https://rt.perl.org/rt3/Public/Bug/Display.html?id...
        
        Ich teste es heute Abend mal unter Win7, falls es dort funktioniert werd ich das Problem wohl einfach aussitzen.
        
        Ansonsten könnte ich mir Vorstellen ne Utility-Funktion zu bauen. Sowas in der Art:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        package ...::Util ... use Encode; ... sub clean_path { return $^O eq 'Win32' ? Encode::encode( 'cp1252', shift ) : shift ; } ...
        
        Als CPAN Modul hab ich noch PerlIO::fse gefunden, dass scheint aber nicht wirklich zu funktionieren.
        
        EDIT: unter Win7 ist das Verhalten indentisch
        Last edited: 2012-04-18 21:09:07 +0200 (CEST)
        
        pope
        
        2012-04-20 11:00
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        Die Lösung ist wohl das verwenden von Win32::GetLongPathName (Modul Win32).
        
        gefunden in der Padre Distribution (in Padre::File::Local)
- Kean
  
  2012-05-11 13:56
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  Ich arbeite zwar mit Tk aber habe dort das gleiche Problem mit Dateinamen die Umlaute enthalten.
  
  Ich verwende nach dem Auslesen einfach folgenden Befehl:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use utf8; ... utf8::downgrade($filename); ...

View all threads created 2012-04-18 11:15.