GIF und Perl

[Erik Tews]

Hi,

inzwischen bin ich ja mit den Grundlagen von GIF vertraut... aber die Ausgabe via Perl klappt leider nicht! Das Script sieht so aus:

$gif = "GIF87a";
$gif .= hex("01").hex("40").hex("00").hex("F0");
$gif .= hex("F7").hex("00").hex("00");
for ($i=255; $i>=0; $i--) { $gif .= hex("FF").hex($i).hex($i); }
$gif .= hex("2C").hex("00").hex("00").hex("00").hex("00").hex("01").hex("40").hex("00").hex("F0");
$gif .= hex("00");
for ($y=0; $y<=239; $y++) {

»»    for ($x=0; $x<=319; $x++) {
»»       $gif .= hex($y);
»»    }

}
$gif .= hex("3B");

binmode STDOUT;
print "$gif";

Die meisten Angaben sind dabei Header u.ä. Die erste for-Schleife erstellt eine Farbpalette, die beiden geschachtelten sind für die Pixel da (so scheint das jedenfalls aufgebaut zu sein). Laut perl -c ist die Syntax OK. chmod 755 ist natürlich gesetzt, trotzdem kommt ein Internal Server Error. Kann mir irgendwer verraten, warum...?

Merci,

Cheatah

Also, nimm am besten mal GD.pm. Das ist einfacher. Ich denke, der Fehler kommt, da du nicht vor der Ausgabe einen Content-type ausgegeben hast. Mach mal vorher folgendes:
print "Content-type: image/gif\n\n";