Opened by DarAvanger05 at 2014-03-06 17:56
User since
2006-01-27
3870 Artikel
HausmeisterIn
2006-01-27
3870 Artikel
HausmeisterIn
Es bleibt verwirrend.
Dein letztes Problem war doch, die Bildgröße zu ermitteln; da hast Du nichts bekommen und jetzt baust Du alles um und hast wieder an anderer Stelle ein ganz anderes Problem.
Versuch doch mal nicht immer wieder ein neues Rad zu erfinden, sondern bleibe erstmal bei einem Ansatz und verfolge und verfeinere den weiter.
Nimm also Deinen vorigen Code und werfe da das imgsize()-Zeug raus und verwende stattdessen die Get()-Methode:
Dein letztes Problem war doch, die Bildgröße zu ermitteln; da hast Du nichts bekommen und jetzt baust Du alles um und hast wieder an anderer Stelle ein ganz anderes Problem.
Versuch doch mal nicht immer wieder ein neues Rad zu erfinden, sondern bleibe erstmal bei einem Ansatz und verfolge und verfeinere den weiter.
Nimm also Deinen vorigen Code und werfe da das imgsize()-Zeug raus und verwende stattdessen die Get()-Methode:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#! /usr/bin/perl use strict; use warnings; use Image::Magick; my $imageFile = "/dev/shm/test.jpg"; my $image = new Image::Magick; my $res = $image->Read($imageFile); warn $res if $res; $res = $image->Scale('100 x 100'); warn $res if $res; my ($x, $y) = $image->Get('width', 'height'); printf "$x...$y\n";
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!