nicht angemeldet
Hallo,
Ich habe zur Probe mal ein kleines Script gemacht, daß Fotos verkleinern soll :
#!/usr/bin/perl -w
use strict;
use Image::Magick;
use Image::Size;
my $image = Image::Magick->new;
my $img = $image->Read( filename=>'alt1.jpg' );
my ($x, $y) = imgsize('alt1.jpg');
my ($width, $height) = sprintf("%d %d", $x * .15, $y * .15);
$img = $image->Resize($width x $height);# Diese Zeile funktioniert nicht
$img = $image->Write( filename=>'smallalt1.jpg' );
das Problem ist, daß diese Zeile irgendwie keinen dynamischen Inhalt annehmen kann. Das Script funktioniert wunderbar wenn ich 2 fixe Werte dort hineinschreibe, also zB $img = $image->Resize('80x53'); , aber wenn es dymaisch sein soll, bekomme ich nur Fehlermeldungen wie : Argument "" isnt numeric in repeat (x), oder Use of uninitialized value in repeat (x). Was kann ich da tun ?