[32922] in Perl-Users-Digest
Perl-Users Digest, Issue: 4200 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 23 14:09:27 2014
Date: Wed, 23 Apr 2014 11:09:02 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 23 Apr 2014 Volume: 11 Number: 4200
Today's topics:
Is the pod of Encode::MIME::Header giving wrong advice? <rm-dash-bau-haus@dash.futureapps.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 23 Apr 2014 18:38:45 +0200
From: "G.B." <rm-dash-bau-haus@dash.futureapps.de>
Subject: Is the pod of Encode::MIME::Header giving wrong advice?
Message-Id: <5357ec86$0$6699$9b4e6d93@newsspool2.arcor-online.net>
Hi,
From the following lines in the docs of Encode::MIME::Header,
$utf8 = decode('MIME-Header', $header);
$header = encode('MIME-Header', $utf8);
one might be tempted to infer that $utf8 stands for UTF-8
encoded "text", i.e. bytes.
Apparently, it doesn't.
Proof: calling Encode::encode('MIME-Header', $perlstring), i.e.
not passing some UTF-8 encoded bytes, but passing a regular
character string instead, perl prints, as expected:
$ perl -e 'use Encode;
my $perlstring = "A \x{20AC} is worth \$1.35";
print STDOUT Encode::encode("MIME-Q", $perlstring), "\n";
'
=?UTF-8?Q?A=20=E2=82=AC=20is=20worth=20=241=2E35?=
The triple E2 82 AC is the UTF-8 triple of '€', as expected. QED.
Given the "utf8 flag fallacy", if you'll allow me to call it
that, do the above two lines from the pod really give a good hint?
TIA, Georg
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 4200
***************************************
