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 because
they are different from each other.
Thank you...
-------------------------------------------------encode_base64.pl
#! /usr/bin/perl
use MIME::Base64 ();
open(FILE_R, "rap_arms.blend") or die "$!";
open(FILE_W, ">rap_arms.bas64") or die "$!";
while (read(FILE_R, $buf, 60*57)) {
$encoded = MIME::Base64::encode($buf);
print FILE_W $encoded ;
}
close(FILE_R);
close(FILE_W);
print "Done ... \n";
-------------------------------------------------decode_base64.pl
#! /usr/bin/perl
use MIME::Base64 ();
open(FILE_W, ">rap_arms.new.blend") or die "$!";
open(FILE_R, "rap_arms.bas64") or die "$!";
while (read(FILE_R, $buf,60*57)) {
$encoded = MIME::Base64::decode($buf);
print FILE_W $encoded ;
}
close(FILE_R);
close(FILE_W);
print "Done ... \n";
----------------------------------------------------------------
--
______________________________________________
Check out the latest SMS services @ http://www.linuxmail.org
This allows you to send and receive SMS through your mailbox.
Powered by Outblaze
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
