Perl und Unicode

Devel::Peek (2)

Zum Vergleich eine Ausgabe mit einem dem Euro-Zeichen, bei dem das UTF-8-Flag gesetzt ist:

    perl -MDevel::Peek -e "Dump qq{\x{20ac}}"
      

    SV = PV(0x811a598) at 0x811a210
      REFCNT = 1
      FLAGS = (POK,READONLY,pPOK,UTF8)
      PV = 0x81192f0 "\342\202\254"\0 [UTF8 "\x{20ac}"]
      CUR = 3
      LEN = 4
      

Auch hier sehen wir ein SV mit einigen Unterschieden: in FLAGS kommt nun "UTF8" vor, und in PV werden zwei Zeichenketten angezeigt: einmal der Inhalt als Bytefolge (mit drei Zeichen), sowie die UTF8-Übersetzung.