in reply to Re^9: Another utf-8 decoding problem
in thread Another utf-8 decoding problem

SV = PV(0x9cf0060) at 0x9fbde50
  REFCNT = 1
  FLAGS = (TEMP,POK,pPOK)
  PV = 0x9fa6988 "Tr?ningsredskap"\0
  CUR = 15
  LEN = 16

[download]

This looks like Latin-1 

SV = PV(0x9cefdd0) at 0x87c2800
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK,UTF8)
  PV = 0x9f9b490 "Tr\303\244ningsredskap"\0 [UTF8 "Tr\x{e4}ningsredska
+p"]
  CUR = 16
  LEN = 20

[download]

A proper string in Perl's internal format. Should be fine to print out if you add that IO layer, or put it through Encode::encode. 

SV = PV(0x9cefdd0) at 0x87c2800
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK,UTF8)
  PV = 0x9f7ca38 "Tr\357\277\275ningsredskap"\0 [UTF8 "Tr\x{fffd}nings
+redskap"]
  CUR = 17
  LEN = 20

[download]

This is wrong. It means you decoded something the wrong character encoding.

Perl 6 - links to (nearly) everything that is Perl 6.

Replies are listed 'Best First'.
Re^11: Another utf-8 decoding problem
by DreamT (Pilgrim) on Oct 11, 2010 at 15:09 UTC
    "A proper string in Perl's internal format. Should be fine to print out if you add that IO layer, or put it through Encode::encode. " - Even if the browser environment is iso-8859-1? :-)
[reply]
      Even if the browser environment is iso-8859-1?

      If you encode to ISO-8859-1, or set up your IO layer as ":encoding(ISO-8859-1)", sure.

      Note that I originally asked for the encoding of your terminal, but if this is a CGI script, the "charset" mentioned in the HTTP header counts.

      Perl 6 - links to (nearly) everything that is Perl 6.
[reply]
[d/l]
        Hi,

        I 'sort of' found the problem, and I guess i 'kind of' didn't pay attention. Now I want to know why:-)

        I encoded the string to iso-8859 using
        $variable = encode("iso-8859-1", $variable);

        [download]

        If I printed it with
        print "Some text".$variable."Some other text";

        [download]

        it didn't work. But if I did
        print $variable."Some other text";

        [download]

        it did work. I guess that this has to do with binmode in some way. But why??
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom