Hallo,

ich möchte JPGs unbestimmter Größe auf eine bestimmte Größe verkleinern.
Dazu hab ich mal folgendes Script ausporbiert:

--------------------------------------------------------
use Image::Magick::Thumbnail::Fixed;
my $t = new Image::Magick::Thumbnail::Fixed;

$t->thumbnail( input => 'CIMG6129.JPG',
output => 'output.jpg',
width => 96,
height => 72 );

print "ok";
--------------------------------------------------------
Beim Ausfüren bzw. Debug wird Zeile 3 ($t->thumbnail....) noch
ausgeführt, endet dann jedoch ohne Fehler. Der print wird nicht
mehr ausgeführt! Warum?

Oder kann mir jemand für diese Anforderung eine Alternative empfehlen?

Gerhard Wolf wrote:
> Hallo,
>
> ich möchte JPGs unbestimmter Größe auf eine bestimmte Größe verkleinern.
> Dazu hab ich mal folgendes Script ausporbiert:
>
> --------------------------------------------------------
> use Image::Magick::Thumbnail::Fixed;
> my $t = new Image::Magick::Thumbnail::Fixed;
>
> $t->thumbnail( input => 'CIMG6129.JPG',
> output => 'output.jpg',
> width => 96,
> height => 72 );
>
> print "ok";
> --------------------------------------------------------
> Beim Ausfüren bzw. Debug wird Zeile 3 ($t->thumbnail....) noch
> ausgeführt, endet dann jedoch ohne Fehler. Der print wird nicht
> mehr ausgeführt! Warum?
>
> Oder kann mir jemand für diese Anforderung eine Alternative empfehlen?

Mh andere Idee, warum resizest du das Bild nicht einfach? Also so:

use Image::Magick;
my $image = Image::Magick->new;
$image->Read("$bild");
$image->Resize(width=>"$thumb_width", height=>"$thumb_height");
$image->Write(filename=>"$output_dir/tn_$bild");


P.S.: Man kann das ja in nen foreach loop legen auf 'nen Directory und
dann jeweils schreiben lassen.

i.A.,
--
Stephan 'smg' Grein, <stephan at stephan minus rockt dot de>
https://stephangrein.de
GnuPG-Key-ID: 0xF8C275D4
FingerPrint: 5B6F 134A 189B A24D 342B 0961 8D4B 0230 F8C2 75D4

Stephan 'smg' Grein schrieb:
> Gerhard Wolf wrote:
>> Hallo,
>>
>> ich möchte JPGs unbestimmter Größe auf eine bestimmte Größe verkleinern.
>> Dazu hab ich mal folgendes Script ausporbiert:
>>
>> --------------------------------------------------------
>> use Image::Magick::Thumbnail::Fixed;
>> my $t = new Image::Magick::Thumbnail::Fixed;
>>
>> $t->thumbnail( input => 'CIMG6129.JPG',
>> output => 'output.jpg',
>> width => 96,
>> height => 72 );
>>
>> print "ok";
>> --------------------------------------------------------
>> Beim Ausfüren bzw. Debug wird Zeile 3 ($t->thumbnail....) noch
>> ausgeführt, endet dann jedoch ohne Fehler. Der print wird nicht
>> mehr ausgeführt! Warum?
>>
>> Oder kann mir jemand für diese Anforderung eine Alternative empfehlen?
>
> Mh andere Idee, warum resizest du das Bild nicht einfach? Also so:
>
> use Image::Magick;
> my $image = Image::Magick->new;
> $image->Read("$bild");
> $image->Resize(width=>"$thumb_width", height=>"$thumb_height");
> $image->Write(filename=>"$output_dir/tn_$bild");
>
>
> P.S.: Man kann das ja in nen foreach loop legen auf 'nen Directory und
> dann jeweils schreiben lassen.
>
> i.A.,
OK danke ...funktioniert

Gerhard Wolf schrieb:
> use Image::Magick::Thumbnail::Fixed;
> [..]
> Beim Ausfüren bzw. Debug wird Zeile 3 ($t->thumbnail....) noch
> ausgeführt, endet dann jedoch ohne Fehler. Der print wird nicht
> mehr ausgeführt! Warum?

Ich hatte starke Probleme mit älteren Image-Magick-Paketen auf nem
Debian-System. Die sind gerne mal ge'segfault'et.
Ein neues Image-Magick/libmagick (im Zweifel aus dem Source kompilieren)
hat in meinen Fällen geholfen.

--
Thomas Wittek
http://gedankenkonstrukt.de/
Jabber: streawkceur [at] jabber.i-pobox.net