multipart message mit MIME::Lite und utf8 - #98937 (Fragen zu Perl-Modulen)

sid burn

2007-08-31 16:57

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Nur, weil es am Ende richtig ausschaut, heißt es nicht das es auch richtig ist!

Ich mache gerade selber Teste mit Mime::Lite. Bisher habe ich es noch nicht hinbekommen das er UTF8 gesendet hat. Alle seine Outputs wandelt er automatisch nach iso-8859-1 um. Das liegt am PerlIO Layer.

Einzige Möglichkeit das zu umgehen ist die Lite.pm direkt zu bearbeiten und ein "use open ':utf8'" hinzuzufügen. nur dann funktioniert überall alles korrekt mit "utf8". Ich muss nochmal schauen ob man das nicht über das MIME::Lite Interface verändern kann.

Aber habe dazu im Moment keine Zeit. Später...

So wäre das Skript eigentlich richtig:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open ':utf8';
use MIME::Lite;

my $msg = MIME::Lite->new(
    To       => 'example@example.com',
    Subject  => 'UTF-8 Test',
    Encoding => '8bit',
    Type     => 'text/plain',
    Data     => 'Hälöö',
);
$msg->attr('content-type.charset' => 'UTF8');
$msg->send;

Allerdiengs sendet es trotzdem in iso-8859-1 da die Anweisung "use open ':utf8'" den I/O für eine andere Dateien nämlich die MIME/Lite.pm nicht überschreibt.

Daher funktioniert es nur wenn du ein "use open ':utf8'" auch in der MIME/Lite.pm hinzufügst.

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de