Thumbnails erzeugen
alligator
- perl
0 $xNeTworKx
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
Hallo,
ich benutze Image::Magick in Kombination mit Image::Size und es klappt wunderbar =)
$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 ?
cu
alligator
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.