Re^3: Transcoding MIME Strings


"be consistent"
	PerlMonks

Re^3: Transcoding MIME Strings

by almut (Canon)

on Oct 10, 2009 at 00:29 UTC ( [id://800396]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Transcoding MIME Strings
in thread Transcoding MIME Strings

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]