Hallo allerseits,
Ich versuche Mime-mail-Anhänge wieder zusammen zu klopfen. Problem: die Dateien sind nicht mehr bytegenau. Die neu erstellte Datei ist pro 256Byte Ursprungsgröße um 1 Byte gewachsen, also eine ca 1KB Datei ist danach um 4 Byte größer.Ich bin sehr verzweifelt! Wer die Lösung als erster hat, dem schicke ich 'ne Flasche Bier *ernstgemeint*
Viele Grüße, Michael
~~~~~ schnipp ~~~~~~
<code>use MIME::Base64 ;
open(FILE, "world.jpg") or die "$!";
open(LOG, '>encoded.txt') or die "$!";
open(PDF, '>recoded.jpg') or die "$!";
while (read(FILE, $buf, 60*57)) {
my $coded = encode_base64($buf);
print LOG $coded;
# print "\n".$coded;
my $uncoded = decode_base64($coded);
# print "\n".$uncoded;
print PDF $uncoded;
}
close(FILE);
close(LOG);</code>
Datum: 26.07.2005-16:42
MIME::Base64 decode klappt nicht recht - Bei Lösung => Flaschbier
