Re: Transcoding MIME Strings

The following code produces desired output:

use strict;
use warnings;
use 5.010;
use MIME::WordDecoder;
use open ':encoding(utf8)';
use open ':std';

my $wd = supported MIME::WordDecoder "iso-8859-1";
for my $enc (
    '=?iso-8859-1?Q?Communiqu=E9?=', '=?iso-8859-1?Q?Telef=F3nica?=',
    '=?ISO-8859-1?Q?Montre=E1l?=',   '=?iso-8859-1?Q?Minist=E8re?='
  )
{
    say $wd->decode($enc);
}

__END__
Communiqué
Telefónica
Montreál
Ministère
[download]

Update: and MIME::Words gives me the same output:

use strict;
use warnings;
use 5.010;
use open ':utf8';
use open ':std';

use MIME::Words qw(:all);

my @encoded = (
    '=?iso-8859-1?Q?Communiqu=E9?=', '=?iso-8859-1?Q?Telef=F3nica?=',
    '=?ISO-8859-1?Q?Montre=E1l?=',   '=?iso-8859-1?Q?Minist=E8re?=',
);
for (@encoded) {
    say scalar decode_mimewords($_);
}
[download]

Comment on Re: Transcoding MIME Strings Select or Download Code

Replies are listed 'Best First'.
Re^2: Transcoding MIME Strings by PoorLuzer (Beadle) on Oct 09, 2009 at 23:11 UTC
I wanted : `Communique Telefonica Montreal Ministere` [download] instead of : `Communiqué Telefónica Montreál Ministère` [download] That is the problem I am trying to solve - I want the output to be in the "ASCII" character set.	[reply] [d/l] [select]
Re^3: Transcoding MIME Strings by almut (Canon) on Oct 10, 2009 at 00:29 UTC
You could transliterate into ASCII in a second step, e.g. using Text::Unidecode: `#!/usr/bin/perl use strict; use warnings; use MIME::Words qw(:all); use Text::Unidecode; my @encoded = ( '=?iso-8859-1?Q?Communiqu=E9?=', '=?iso-8859-1?Q?Telef=F3nica?=', '=?ISO-8859-1?Q?Montre=E1l?=', '=?iso-8859-1?Q?Minist=E8re?=', ); for (@encoded) { my $s = decode_mimewords($_); print unidecode($s), "\n"; } __END__ Communique Telefonica Montreal Ministere` [download]	[reply] [d/l]
Re^4: Transcoding MIME Strings by PoorLuzer (Beadle) on Oct 10, 2009 at 02:11 UTC
Dandy!	[reply]