[Win32] LoginName Codepage (gelöst) (Fragen zu Perl-Modulen)

[thread]19850[/thread]

[Win32] LoginName Codepage [gelöst]

Tags: perl5 win32 Ähnliche Threads

Leser: 9

Articles: hide open all | hide show old branches

+4 replies
Kean

2015-10-15 11:54
User since
2004-08-18
463 Artikel
BenutzerIn
Ich hole mir in einem Script mit my $user = Win32::LoginName(); den Windows Benutzernamen und schreibe diesen zu jeder Operation in die Datenbank als Username.

Jetzt hatte ich den ersten Benutzer, welcher Umlaute in seinem Benutzernamen hat und bekomme Fehlermeldungen weil die Umlaute in einer anderen Codepage sind.

Wie kann ich einen String untersuchen und mir anzeigen lassen in welcher Codepage er ist?

Hier der Beispielcode:
Code: (dl )

1 2 3 4 5

use strict; use warnings; use utf8; print Win32::LoginName()."\n";
Ausgabe:
Code: (dl )

Na▀÷õ³me
Original: Naßöäüme
- Gast janus
  
  2015-10-15 12:01
  
  Win32::Console
  
  $codepage = $CONSOLE->InputCP();
  Last edited: 2015-10-15 12:50:11 +0200 (CEST)
- +2 replies
- Raubtier
  
  2015-10-15 12:14
  
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  
  Lies das hier: http://perlgeek.de/de/artikel/charsets-unicode
  - Kean
    
    2015-10-15 12:45
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Danke dieser Artikel hat mir sehr weiter geholfen!
    
    Mein Problem habe ich wie folgt gelöst:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    use strict; use warnings; use utf8; use Tk; use Encode; my $mw = Tk::MainWindow->new(); my @charsets = Encode->encodings(':all'); for (@charsets) { $mw->Label(-text => "$_:".encode($_, Win32::LoginName()))->pack(); } MainLoop;
    
    Danach musste ich nur noch schauen in welcher Codierung das Ergebnis richtig war :-)

View all threads created 2015-10-15 11:54.