> 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>