alligator: Thumbnails erzeugen

Hi zusammen,

ich such nem Modul, dass mir Thumbnails macht, von mir
unbekannten Bildern (kann *.jpg / *.sein auch die Größe und
Format kenn ich nicht).
Hab schon mal bei Cpan gesucht ( http://search.cpan.org/search?mode=module&query=thumbnail ),
aber leider ist mir nicht ganz klar, welches Modul für mein Anliegen, das beste wär.

Meine vorinstallierten Module mit Image am Anfang sind:

Image::Info
Image::Info::BMP
Image::Info::GIF
Image::Info::JPEG
Image::Info::PNG
Image::Info::PPM
Image::Info::Result
Image::Info::SVG
Image::Info::XBM
Image::Info::XPM
Image::Magick
Image::Size
Image::TIFF
Image::TIFF::Rational

Geht davon auch eins ? Wär mir lieber, weil ich keins mehr nachinstallieren kann, aber zu Testzwecken würds auch von Cpan tun.

Danke für Hilfe.

Gruß
alligator

  1. Hallo,
    ich benutze Image::Magick in Kombination mit Image::Size und es klappt wunderbar =)

    $xNeTworKx.

    1. 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 ?

      cu
      alligator

      1. 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.