Thumbnails erzeugen

[$xNeTworKx]

Hi,

kannst du mir da ein Beispiel sagen, wie das geht oder ein paar Links posten, wo das etwas beschrieben ist wie man das machen muss ?

Wie du die Module installiert hast, wurde eine ausreichende Doku mitinstalliert (zumindest wenn du mit ppm die Module nachinstallierst), falls nicht, ich hab den Teil meines Scripts herausgesucht :

use strict;
use Image::Size;
use Image::Magick;
.
.
.
.
.
foreach (@grafiken)  {
my $image = Image::Magick->new;
my $img = $image->Read( filename=>$_ );
my ($x, $y) = imgsize($_);
my ($width, $height) = ($x * .10, $y * .10);
$img = $image->Resize("$width x $height");
$img = $image->Write(filename=> 'small' . $_ );
.
.
.
anzumerken wäre, daß nur die Funktion my ($x, $y) = imgsize($_); von Image::Size kommt. Der rest funktioniert nur durch Image::Magick. Ich glaube man kann auch mit Image::Magick die Größe des Bildes bestimmen, aber da klappte bei mir irgend etwas nicht so ganz.

$xNeTworKx.