windows-1251 decodieren. wie?: "=?windows-1251?B?4eDn+yDk4O3t+/U=?= (Allgemeines zu Perl)

[thread]6093[/thread]

windows-1251 decodieren. wie?: "=?windows-1251?B?4eDn+yDk4O3t+/U=?=

esskar

2004-02-24 15:57

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Welches Modul kann das?

ptk

2004-02-24 16:24

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Wahrscheinlich eins aus der MIME::-Reihe. Halbwegs manuell kannst du es mit MIME::Base64 und Encode machen.

esskar

2004-02-24 16:44

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

danke.!

kabel

2004-02-24 20:00

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

:rock: wozu Base64?

-- stefan

esskar

2004-02-24 20:31

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

wegen dem B? !

bekomm es aber nicht hin...
kann mal jemand ein bsp. posten?

esskar

2004-02-24 20:38

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hatte ja immer unmime aus MIME::WordDecoder benutzt

Code: (dl )

use MIME::WordDecoder;

print "ISO-8859-1:", unmime("=?iso-8859-1?B?SGFsbPY=?="), "\n";
print "WIN-1251  :", unmime("=?windows-1251?B?4eDn+yDk4O3t+/U=?="), "\n";

Ergebnis:

Code: (dl )

ISO-8859-1:Hall÷
ignoring text in character set `WINDOWS-1251'
 at F:\ams\sentinel\www\email\test.pl line 4
WIN-1251  :1

ISO funzt natürlich... doch die 1 ist schon lässtig, weil man das nicht mal abfangen kann; bzw. kaum

ptk

2004-02-24 22:33

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Versuch es mal mit diesen zusaetzlichen Zeichen:

Code: (dl )

1
2

$wd = default MIME::WordDecoder;
$wd->handler("WINDOWS-1251" => "KEEP");

esskar

2004-02-24 22:35

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=ptk,24.02.2004, 21:33]Versuch es mal mit diesen zusaetzlichen Zeichen:

Code: (dl )

1
2

$wd = default MIME::WordDecoder;
$wd->handler("WINDOWS-1251" => "KEEP");

[/quote]
cool! :)

View all threads created 2004-02-24 15:57.