Bild speicherschonend verkleinern - #107076 (Perl/CGI)

roooot

2008-03-14 22:30

User since
2008-03-03
276 Artikel
BenutzerIn
[default_avatar]

Hallo

ich habe ein Problem: Ich verkleinerne online ein Bild. Allerdings schlägt das oftmals fehl, falls das Bild zu groß ist. Es kommt dann

Code: (dl )

gd-jpeg: JPEG library reports unrecoverable error: Insufficient memory (case 4)

.
Ich verwende dabei CPAN:

image::resize. Das sieht dann so aus:

Code (perl): (dl )

use Image::Resize;
my $image = Image::Resize->new('./.tmp/bilder_'.$grid.'/'.$hash.'.jpg') or share::logge('BILDUPLOAD: kann bild nicht lesen: '.$!);
my $conv        = $image->resize(1100, 1100) or share::logge('BILDUPLOAD: kann conv nicht erstellen: '.$!);
my $thumb       = $image->resize(120, 120) or share::logge('BILDUPLOAD: kann thumb nicht erstellen: '.$!);
          
open(FH, '> ./.tmp/bilder_'.$grid.'/conv_'.$hash.'.jpg') or share::logge('BILDUPLOAD: kann bild nicht schreiben: '.$!);
print FH $conv->jpeg();
close(FH);
                  
open(FH, '> ./.tmp/bilder_'.$grid.'/th_'.$hash.'.jpg') or share::logge('BILDUPLOAD: kann thumb nicht schreiben: '.$!);
print FH $thumb->jpeg();
close(FH);

Wie kann ich das schonender umwandeln? Geht das überhaupt. Über die Hardware habe ich leider keine Auskunft, da ich ein shared Hosting Paket habe. Dort ist auch ImageMagick nicht vorinstalliert.

Danke für Tipps!

Viele Grüße :)