Re: [TECH] Escaper des accents en Perl

[Sébastien Dinot <sdinot AT april.org>]

Frederic Couchet a écrit :
> Comment faire ça automatiquement via une fonction Perl (si ça existe) ?

Tu as tout ce qu'il te faut sous la main ! (c:

Jette un oeil dans le SVN aux scripts perl d'envoi de mail aux
adhérents d'avant gDTC :

----------------------------------------------------------------------

    # Encodage approprié des identités comportant des lettres
    # accentuées (remplacées par leur code hexadécimal sur deux
    # chiffres précédé par un « = », les espaces étant remplacés
    # par des « _ »).
    # Par exemple :
    #   Sébastien DINOT <sdinot AT april.org>
    # devient :
    #   =?ISO-8859-15?Q?S=e9bastien_DINOT?= <sdinot AT april.org>

    $identite_encodee = $identite;
    $identite_encodee =~ s/([^0-9A-Za-z_ ])/'='.unpack('H2',$1)/ge;
    $identite_encodee =~ s/\s/_/g;

    if ($identite_encodee ne $identite)
    {
      $destinataire = "=?ISO-8859-15?Q?$identite_encodee?= <$email>";
    } else
    {
      $destinataire = "$identite <$email>";
    }

----------------------------------------------------------------------

A++, Sébastien

-- 
Sébastien Dinot, sdinot AT april.org
Secrétaire de l'APRIL (http://www.april.org)
Association pour la Promotion et la Recherche en Informatique Libre