> Hello folks,
> 
> If I encode a file with MIME::Base64 with the following 
> script, encode_base64.pl. The 
> 
> question is; how do I decode the file?  I use the following 
> script, decode_base64.pl to 
> 
> decode back to the original source but that did not work.
> 
> Thank you...

[snip]

>    while (read(FILE_R, $buf, 60*57 )) {
>        $encoded = MIME::Base64::decode($buf);
>        print FILE_W $encoded ;
>        
>    }  

Try decodeing the entire encoded data instead of a line at a time.
HTH

DMuey

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to