HI,
I was trying to write a script that encodes a file with Base64 using
MIME::Base64. Unfortunatley, it doesn't work. Here's my try:
-------cut here-------
use MIME::Base64;
open(FILE, "hans.swf") || die "Konnte die Datei nicht öffnen: ";
open(FILE2, ">hans.b64") || die "Konnte die Datei nicht öffnen: ";
while(<FILE>)
{
$string = encode_base64($_);
print FILE2 "$string";
}
close(FILE);
close(FILE2);
-------cut here-------
The Problem is that it doesn't encode the file completely, Just a little
part of it. Does anybody know what the problem is?
I attached the file hans.swf, the file I try to encode. It's a simple
Shockwave-movie made with Flash.
TIA
Jan Harders <[EMAIL PROTECTED]>
--
hitservice.de <www.hitservice.de>
hans.swf
