[MIME::Base64] Bild decodieren - #84349 (Fragen zu Perl-Modulen)

BungeeBug

2004-07-15 22:06

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

N'abend.

Ich habe von einem Kollegen eine E-Mail mit einem mir nicht bekannten Anhang bekommen. Es scheint ne Mail zu sein, die in einem Outlook Format gespeichert wurde. ( Obs nun Outlook war weiß ich nicht) Wenn ich diese Containerdatei öffne kann ich den Inhalt lesen. Also die Header usw. Als Anhang befindet sich eine JPG Datei in dem Conatiner, die wohl auch Base64 Codiert ist. Nun sollte es ja nicht weiter schwer sein diese zu decodiern. Ich habe also alle Zeilen Entfernt, die nicht zu dem Bild gehören. Und wollte dieses nun mit folgendem Script bearbeiten

Code (perl): (dl )

#!/usr/bin/perl

use MIME::Base64;

open(INFIEL,"< /home/bug/bild") || die("fehler");;
open(OUTFILE, "> ./bild.jpg");

@file = <INFILE>;


foreach (@file)
 {
  print (<OUTFILE> , decode_base64($_));
 }
 

close (INFILE);
close (OUTFILE);

Was auch geht, zumindest zuf Hälfte. Als Ausgabe kommt immer eine leere Datei raus. Leider verstehe ich noch nicht soviel von Perl das ich jetzt sagen könnte, was da falsch ist. Nach meinem Wissenstand stimmt alles und Perl erzeugt auch keine Fehlermeldung.

MfG
BungeeBug