Attachment v base64

[Petr Kolar]

> poradil by mi nekdo utilitu schopnou prevest attachement 
> kodovany  v Base64 na soubor. Nevim presne, ktere udaje 
> jsou dulezite, proto posilam i ukazku zpravy.

#!/usr/local/bin/perl
binmode(STDOUT);                          # for MS-DOS and Macs
while (<>) {
    tr#A-Za-z0-9+/##cd;                   # remove non-base64 chars
    tr#A-Za-z0-9+/# -_#;                  # convert to uuencoded format
    $len = pack("c", 32 + 0.75*length);   # compute length byte
    print unpack("u", $len . $_);         # uudecode and print
}

Pracuje to i s perl 4. Pred zpracovanim je potreba z dopisu vybrat jenom 
vlastni data (v ukazce ***DATA***).

> ------=_NextPart_000_0006_01BD47FF.8EDB2100
> Content-Type: application/octet-stream;
>     name="biography.doc"
> Content-Transfer-Encoding: base64
> Content-Disposition: attachment;
>     filename="biography.doc"
> 
> ***DATA***
> 
> ------=_NextPart_000_0013_01BD4F95.D43F94E0--

                                                        S pozdravem
--
                         ***  Petr Kolar  ***
Department of Information Technologies, Technical University of Liberec
            Voronezska 1329, 461 17 Liberec, Czech Republic
            Phone: +420-48-535-2371   Fax: +420-48-535-2229
  E-mail: Petr.Kolar na vslib.cz   http://www.cesnet.cz/staff/kolar.html