mehrere bilder gleichzeitig verkleinern und kompremieren

[$xNeTworKx]

Hallo,
Ich hätte da eine Lösung, aber weis nicht, ob es die Richtige für dich ist. Ich hab mir ein kleines Perl Script geschrieben, weil ich oft Fotos für Webseiten verkleinern muss :

#!/usr/bin/perl -w

use strict;
use Image::Magick;
use Image::Size;

my $image = Image::Magick->new;
my @grafiken = ();

opendir(DIR,'.') or die "Cant open directory : $!\n";
     while (defined($_ = readdir(DIR)))  {
     if ($_ =~ /^.+?.jpg$/i)  {
     push @grafiken, $_;
     }
}
closedir DIR;
foreach (@grafiken)  {
my $image = Image::Magick->new;
my $img = $image->Read(filename=>$_);
my ($x, $y) = imgsize($_);
my ($width, $height) = ($x / 2.5, $y / 2.5);
$img = $image->Resize("$width x $height");
$img = $image->Write(filename=>$_);
}

Du brauchst zusätzlich die Perl Module Image::Magick und Image::Size. Das Script gibst du in das selbe Verzeichnis wie die Fotos, startest es und alle Fotos werden in Sekunden auf 640x480 komprimiert (außer du änderst diese Angabe ($x / 2.5, $y / 2.5);.

$xNeTworKx.