UTF8 Codes in E-Mail Subjects (gelöst) (Allgemeine technische Fragen)

[thread]20026[/thread]

UTF8 Codes in E-Mail Subjects [gelöst]

Tags: MIME konvertieren Sonderzeichen Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+17 replies
bianca

2016-03-25 08:58

User since
2009-09-13
6977 Artikel
BenutzerIn

Guten Morgen!
Manchmal bekomme ich Newsletter mit Sonderzeichen im Betreff, z. B. ein Sternchen, Herzchen usw. Im MIME Quellcode der Mail finde ich dann im Subject z. B. das hier: =?UTF-8?Q?=E2=9C=A9
Wenn ich das Präfix raus nehme bleibt =E2=9C=A9. In meinem Mailreader und auch im Reader von GMX wird dieses Zeichen als Sternchen angezeigt.

Wenn ich nun aber auf http://www.utf8-chartable.de/unicode-utf8-table.pl... schaue finde ich für e2 9d a4 ein Herzchen anstatt eines Sternchens.
Ist das nochmal was anderes was da im Spiel ist oder woran liegt der Unterschied?

Und wie kann ich diese Kodierung in ein HTML Entitie konvertieren, um sie im Browser darzustellen?
10 print "Hallo"
20 goto 10
- Gast janus
  
  2016-03-25 11:26
  
  Welche Codierung im Subject verwendet wird, sagt ein Kürzel, Q steht für Quoted Printable. Damit solltest Du weiterkommen.
  Last edited: 2016-03-25 11:47:57 +0100 (CET)
- +6 replies
- GwenDragon
  
  2016-03-25 12:03
  
  User since
  2005-01-17
  14538 Artikel
  Admin1
  
  Das Modul MIME::QuotedPrint aus dem Packet MIME::Base64 dekodiert Quoted-Printable.
  Die Entities für HTML kodierts du mit HTML::Entities.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - bianca
    
    2016-03-25 18:22
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Danke euch beiden!
    Aber so ganz komme ich noch nicht klar. Die Dokus der Module enthalten keine Beispiele.
    
    Mein Versuch:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    require MIME::QuotedPrint; my $dec = MIME::QuotedPrint::decode_qp('=E2=9C=A9'); require HTML::Entities; say HTML::Entities::encode_entities($dec);
    
    Aber es kommt nicht ein Zeichen raus sondern drei â©. Was mache ich falsch?
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - Gast janus
      
      2016-03-25 22:06
      
      Beachte die Codierung. Wenn die UTF-8 ist, gehören ggf. mehrere Bytes zusammen zu einem Zeichen. Du musst also gucken, ob dein Code für Quoted Printable byteorientiert oder zeichenorientiert arbeiten soll. Bei einer ISO-8859-x Codierung hat jedes Zeichen nur ein Byte.
      Last edited: 2016-03-26 00:17:17 +0100 (CET)
      - +2 replies
      - bianca
        
        2016-03-26 09:01
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Ja, kein leichtes Thema. Dir auch vielen Dank!
        10 print "Hallo"
        20 goto 10
        
        Gast janus
        
        2016-03-26 09:25
        
        Keine Ursache. Perl unterstützt Unicode seit Version 5.6 im Jahr 2001.
        
        Seit 5.8.8 ist Encode.pm im Core. Und natürlich ist diese Entwicklung nicht stehengeblieben.
        Last edited: 2016-03-26 09:44:13 +0100 (CET)
    - GwenDragon
      
      2016-03-26 12:59
      
      User since
      2005-01-17
      14538 Artikel
      Admin1
      
      Du hast den Unterschied zwischen String und Bytesequenz nicht beachtet. Das ist auch nicht so einfach.
      Die einen Methoden/Befehle/Funktionen funktionieren mit Strings und andere sehe diese Datensequenz eben nur als Bytes.
      Moritz Artikel hat das erklärt: http://perlgeek.de/de/artikel/charsets-unicode#per...
      
      Ich finde das Verhalten von Perl und diversen Modulen bezüglich Bytesequenz oder String etwas freakig. Aber mit Data::Dumper lässt sich wenigstens debuggen wie eine solche Sequenz aussieht.
      
      Perl mach leider nicht alles automagisch. ;)
      
      Manches lernt man nur durch regelmäßiges Arbeiten mit bestimmten Modulen und Funktionen, durch langjährige Erfahrung mit solchen Kodierungsproblemen.
      Ich stolper auch ab und an drüber.
      Last edited: 2016-03-26 13:02:26 +0100 (CET)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- GwenDragon
  
  2016-03-25 19:09
  User since
  2005-01-17
  14538 Artikel
  Admin1
  MIME::Words ist da bei den Mailheadern einfacher für dich, glaube ich.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  use strict; use warnings; use 5.010; my $encoded = 'Subject: =?utf-8?Q?=C3=84=C3=96=C3=9C=C3=9F=C2=B5?='; # ist 'Subject: ÄÖÜßµ' als QP kodiert use MIME::Words qw(decode_mimewords); # Aus MIME Quotedprintable in eine Bytekette my $decoded = decode_mimewords($encoded); use Encode; # die Bytekette ins Perl-String-Format zurück $decoded = decode_utf8($decoded); # für die DOS-Konsole richtig als CP850 ausgeben say encode('CP850',$decoded); use HTML::Entities; # als HTML Zeichen kodieren say encode_entities($decoded);
  
  ergibt in der Konsole:
  
  Subject: ÄÖÜßµ Subject: ÄÖÜßµ
  Last edited: 2016-03-25 19:10:34 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - bianca
    
    2016-03-26 09:00
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Klappt perfekt, danke dir!!!
    10 print "Hallo"
    20 goto 10
- +7 replies
- bianca
  
  2016-03-27 09:50
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  Guten Morgen!
  Habe doch noch eine kleine Frage:
  Wie muss ich das im Script schreiben, wenn als Ausgabe ➜ rauskommen soll ohne die Module MIME::Words und Encode dazu zu nehmen? Nehmen wir mal an, das sei für eine Art Test, ob das Modul das erwartete Ergebnis liefert.
  
  Testgerüst:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl use strict; use warnings; use Fcntl qw(:DEFAULT); use 5.010; use HTML::Entities; my $enti = HTML::Entities::encode_entities("was muss hier rein?"); say "Ergebnis: $enti";
  
  Das was da rein kommt entspricht Encode::decode_utf8(MIME::Words::decode_mimewords('=?UTF-8?Q?=E2=9E=9C?=')). Aber wie schreibt man das was da raus kommt als konstante Wertzuweisung für ein Scalar in einem Script?
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - GwenDragon
    
    2016-03-27 11:28
    User since
    2005-01-17
    14538 Artikel
    Admin1
    
    Code (perl): (dl )
    
    1 2 3
    
    $subject = =?UTF-8?Q?=E2=9E=9C?='; $decoded_subject = Encode::decode_utf8(MIME::Words::decode_mimewords($subject)); $enti = HTML::Entities::encode_entities_numeric($decoded_subject);
    
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +3 replies
    - bianca
      
      2016-03-27 11:46
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Nein, ich meinte als Konstante ohne es vorher mit dem Modul Encode zu erzeugen. Also statisch ins Script rein.
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - GwenDragon
        
        2016-03-27 14:27
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        Ich habe dich irgendwie missverstanden. Vielleicht denke ich zu komplex.
        Bitte erkläre mir was du genau willst.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        bianca
        
        2016-03-27 14:45
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Es steht genau da was ich möchte. Ich finde keine anderen Worte dafür.
        10 print "Hallo"
        20 goto 10
  - +2 replies
  - GwenDragon
    
    2016-03-27 15:49
    User since
    2005-01-17
    14538 Artikel
    Admin1
    
    So?
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my $bytes = "\x{279c}"; use HTML::Entities; my $enti = HTML::Entities::encode_entities_numeric($bytes); say "Ergebnis: $enti";
    
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - bianca
      
      2016-03-28 09:11
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Jaaaa, "\x{279c}" ist es!!
      Danke!!
      10 print "Hallo"
      20 goto 10

View all threads created 2016-03-25 08:58.