🚀 go-pugleaf

Witam wszystkich chcących pomagać w taki czy inny sposób ;-).

Toczę nierówną walkę z fragmentem skryptu, który w założeniu ma zmienić
kodowanie treści wiadomości pocztowej (tekstu) do CP1250. Tekst ten
zostanie w dalszej części użyty do przygotowania wydruku, stąd potrzeba
użycia strony kodowej win.
Skrypt który próbuję popełnić pracował będzie pod Win.


Wysyłam sobie mailem zestaw polskich znaków diakrytycznych duże i małe
litery w ramach testu.

Odbieram wiadomość za pomocą Net-POP3.

Wyciągam treść wiadomości (tekst) i dostaję go w postaci z RFC czyli
=CA=D3=A1=A6=A3=AF=AC=C6=D1 =EA=F3=B1=B6=B3=BF=BC=E6=F1

poniżej kawałek skryptu w którym ćwiczę samą konwersję i utknąłem

#!/usr/bin/perl -w

use strict;
use locale;
use Encoding;

use Data::Dumper qw(Dumper);
use Encode qw(find_encoding encode decode from_to); use MIME::QuotedPrint;

$Data::Dumper::Maxdepth = 2;
$Data::Dumper::Indent   = 0;

our $tekst = '=CA=D3=A1=A6=A3=AF=AC=C6=D1 =EA=F3=B1=B6=B3=BF=BC=E6=F1';

our $tekst_zdekodowany = decode_qp($tekst); działanie tej funkcji daje
zestaw znaków ĘÓˇ¦ŁŻ¬ĆŃ ę󱶳żĽćń przypisania dla strony kodowej
iso-8859-2 w tym miejscu zamieram bo dalsze linie nic nie zmieniają

our $tekst_in_octets = encode("iso-8859-2", $tekst_zdekodowany);

print decode("cp1250", $tekst_in_octets);

1;
------------------------

dla fontów windowsowych potrzebne jest CP1250

Czy ktoś ma jakiś pomysł bo ja już straciłem dystans do tego i nie widzę
może prostego rozwiązania.

Pozdrawiam.
Marek