Thread Grosse Dateien öffnen: Ohne TIE::File ? (23 answers)
Opened by Free Faq at 2004-08-12 22:06

Free Faq
 2004-08-13 00:51
#85739 #85739
User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]
Ok hab nun ein anderes, wahrscheinlich eher kleineres Problem:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
# 1.gif 206725 Byte
# 2.gif 7795 Byte

open(FILE, "db.sav");
binmode(FILE);
seek(FILE, 206725, 0);
read(FILE, $Data, 7795);
close(FILE);

print "Content-type: image/gif\n\n";
print $Data;

--> Bild wird im Browser nur Teilweise, bis kaputt dargestellt.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
# 1.gif 206725 Byte
# 2.gif 7795 Byte

open(FILE, "db.sav");
binmode(FILE);
seek(FILE, 206725, 0);
read(FILE, $Data, 7795);
close(FILE);

print "Content-type: image/gif\n\n";
open(FILE, "> 123.gif");
binmode(FILE);
print FILE $Data;
close(FILE);

--> Bild ist iO!

Nun hab ich mir die beiden Bilder (iO und Defekt(Ausm Browser per speichern unter gespeichert)) mit dem Editor angeguckt und mir viel auf, das im defekten zwar alle Angaben richtig sind, aber einige Zeilenumbrüche drin sind, die da nicht hingehören. Woran liegt das?
Muss ich bei der Ausgabe im Browser $Data noch irgendwie formatieren? Mit "pack" vielleicht?
Haut mich nicht, ich bin ein Noob!

View full thread Grosse Dateien öffnen: Ohne TIE::File ?