🚀 go-pugleaf

On 2010-07-13 23:43, mrek <marq@iq.pl> wrote:
> 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 = decode("iso-8859-2", $tekst_zdekodowany);
>
  print encode("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.

Owszem, trzeba zamienić miejscami encode() i decode (patrz wyżej). One
robią to co mają w nazwie ;-).