Bild im Script speichern
Sven (κ)
- perl
Heyho,
jetzt bin ich bereits mehrere Stunden am Suchen, doch ich werde einfach nicht
fündig, und auch endloses Ausprobieren führte mich zu keinem Ergebnis - wir
haben immerhin schon 1 Uhr :(
Das Problem ist, dass ich einfach mein kleines Perlscript dazu bewegen will,
dem Browser irgendein Bild auszugeben, sei es ein kleines 1px-transparentes-Gif.
Also lese ich das Gif mit einem Script ein, lass mir die binärdaten in hex
umrechnen und speichere sie in einem string in meinem eigentlichen Programm.
Irgendwie scheint das aber trotzdem nicht zu klappen.
Z.b. habe ich es ausprobiert mit
$image = '47494638396105000500900100000000ffffff21f90401000001002c00000000050005000002048c8fa958003b';
$bin = pack 'C', $image;
print "content-type: image/gif\n\n$bin";
ging nicht. Naja, vielleicht
$image2 = '47 49 46 38 39 61 05 00 05 00 90 01 00 00 00 00 ff ff ff 21 f9 04 01 00 00 01 00 2c 00 00 00 00 05 00 05 00 00 02 04 8c 8f a9 58 00 3b';
my @hax = split(/ /, $image2);
$bin = pack 'C', @hax;
print "content-type: image/gif\n\n$bin";
geht auch nicht... hm, wie geht es denn dann? Kann mir jemand einen Tipp geben? :)
Gruß und gute Nacht,
Sven
jetzt bin ich bereits mehrere Stunden am Suchen, doch ich werde einfach nicht
fündig
suchst du sowas: http://www.webconsultant.de/Loesungen008.htm
Hallo Robert,
jetzt bin ich bereits mehrere Stunden am Suchen, doch ich werde einfach nicht
fündig
suchst du sowas: http://www.webconsultant.de/Loesungen008.htm
allem Anschein nach nicht :)
Gruß,
Sven
Hallo,
ich habe (endlich!) eine Lösung gefunden:
$image = '47494638396105000500900100000000ffffff21f90401000001002c00000000050005000002048c8fa958003b';
$len = length($image);
$bin = pack 'H'.$len, $image;
print "content-type: image/gif\n\n$bin";
Den Lösungsansatz dazu brachte mir ein PHP Script, welches vergleichbares machte.
Wie gesagt, hier ist in der Variable $image heximedal ein 5x5 Pixel großes, transparentes GIF gespeichert, welches anschliessend binär ausgegeben wird, also so, wie es eben eigentlich ist :)
Gruß,
Sven