Escaper des accents en Perl

[Frederic Couchet <fcouchet AT april.org>]

Salut,

une question sur Perl et la manière d'escaper les accents.

J'utile un petit script Perl pour faire des mailings. Dans les
en-têtes il faut escaper les accents sinon les MUA essaient de
deviner, et s'en sortent pas forcément bien. En outre, spamassassin
détecte ce genre de problème et peut scorer positivement le mail (pas
assez pour le faire passer pour un spam avec juste ça).

Exemple.

Une ligne d'en-tête incorrecte :

$smtp->datasend("Subject: Promouvoir et défendre le logiciel libre : campagne 
de parrainage \n");

Une ligne d'en-tête avec l'accent escapé (man iso_8859-1) :

$smtp->datasend("Subject: Promouvoir et =?iso-8859-1?Q?d=E9fendre?= le 
logiciel libre : campagne de parrainage \n");

Comment faire ça automatiquement via une fonction Perl (si ça existe) ?

Fred.
-- 
April - « promouvoir et défendre le logiciel libre » - www.april.org

Rejoignez maintenant plus de 2 000 personnes, associations,
entreprises et collectivités qui soutiennent notre action