Ich hab mit den Code von Strat mal angesehen und an meine Skript angepasst. Funktioniert soweit auch ganz gut. Allerdings bricht GD zusammen wenn z.B. ein GIF kein GIF ist, sondern nur versehentlich *.gif heisst. Oder wenn die Datei beschädigt ist. Dummerweise bricht dann gleich alles zusammen und im Browser gibt es dann folgende Mehlung:
Can't use an undefined value as a symbol reference at /usr/local/lib/perl/5.6.1/GD.pm line 167.
Das ist mehr als böd, da es ja immer mal vorkommen kann, dass ein Bild einfach kaputt oder falsch benannt ist.
Ich habe versucht den Fehler abzufangen, aber selbst mit "die" wird das nix! Folgender Code bringt mir die gleiche Meldung wie oben beschrieben:
if ($extension eq 'jpg' or $extension eq 'jpeg') { $image = GD::Image->newFromJpeg($SourceFilename) || die("error"); }