[Tk] Eurozeichen ersetzen (solved) (Graphische Oberflächen)

[thread]18480[/thread]

[Tk] Eurozeichen ersetzen [solved]

Tags: perl5 GUI Tk Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+8 replies
Kean

2013-07-31 13:44
User since
2004-08-18
463 articles
BenutzerIn
Um in einem Tk-Entry Widget ein Eurozeichen zu schreiben, benutze ich chr(0x20ac), da ich sonst keine andere Möglichkeit gefunden habe.
Wenn ich jetzt den Text aus diesem Tk-Entry wieder auslese und das Eurozeichen ersetzen will, klappt dies nicht.

Hier ein Codebeispiel:
Code: (dl )

1 2 3

my $entry = $mw->Entry(-text => '126,00 '.chr(0x20ac), -font => '{Arial} 12'); my preis = $entry->get(); $preis =~ s/€//g; #Oder $preis =~ s/chr(0x20ac)//g;
Wie kann ich dieses Zeichen bei der Suche finden?
- +5 replies
- GwenDragon
  
  2013-07-31 13:53
  User since
  2005-01-17
  14741 articles
  Admin1
  Was ist denn in $preis drin?
  Schau bitte mal mit Devel::Peek, ob das Unicodeflag gesetzt ist.
  
  Verwendest du
  
  Code (perl): (dl )
  
  use utf8;
  
  im Programm?
  Last edited: 2013-07-31 13:55:36 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - Kean
    
    2013-07-31 14:01
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Nein use utf8; verwende ich nicht.
    
    Hier die Ausgabe von Dump:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    SV = PV(0x54fef4c) at 0x54795b4 REFCNT = 1 FLAGS = (PADMY,POK,pPOK,UTF8) PV = 0x553e4dc "598.90 \342\202\254"\0 [UTF8 "598.90 \x{20ac}"] CUR = 10 LEN = 12
    - +3 replies
    - GwenDragon
      
      2013-07-31 14:12
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Schau mal, ob das € wirklich mit Dump als Unicode 20ac angezeigt wird.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Kean
        
        2013-07-31 14:20
        
        User since
        2004-08-18
        463 articles
        BenutzerIn
        
        Wie genau mach ich das? Was ich eben gepostet habe ist doch der Dump der Zeichenkette.
        
        GwenDragon
        
        2013-07-31 15:15
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Es geht um das € beim Ersetzen mit s///.
        Schreib bitte mal:
        
        Code (perl): (dl )
        
        1 2
        
        my $euro = '€'; Dump \$euro;
        
        Dann siehst du wie das € wirklich kodiert ist.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- pq
  
  2013-07-31 14:24
  User since
  2003-08-04
  12208 articles
  Admin1
  chr(0x20ac) ist utf8 dekodiert.
  wenn du im skript € schreibst, ist das aber nicht dekodiert.
  du musst also, wenn du auf diese weise solche zeichen direkt im skript schreibst, use utf8 verwenden, oder alternativ
  
  Code (perl): (dl )
  
  1 2
  
  use Encode; my $euro = decode_utf8 "€";
  
  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
  - Kean
    
    2013-07-31 14:30
    
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Das Konvertieren meines Scriptes in UTF8 und use utf9; haben geholfen. Jetzt kann ich direkt "€" verwenden.
    
    Danke!

View all threads created 2013-07-31 13:44.