---

Hej Gruppe

Jeg har problemer med fil-størrelsen efter Resize
eks. et 2608 x 1952 jpg billede som fylder ca. 1.5 Mb
som bliver resize til 250 x 187 er så 143 Kb
i stedet for normal ca. 10 Kb.

Jeg har prøvet nedenstående :

$width = 250;
$height = 187;
$quality = 25;
$x = $image->Set(quality=>$quality);
$x = $image->Rezize("${width}x${height}");
$x = $image->Write("upload.jpg");

Hvorfor er filstørrelsen 15 x så stor som normal.

Hilsen
Palle

---

On Wed, 10 Nov 2004 18:51:32 +0100, Palle wrote:

> $x = $image->Set(quality=>$quality);
> $x = $image->Rezize("${width}x${height}");
> $x = $image->Write("upload.jpg");

> Hvorfor er filstørrelsen 15 x så stor som normal.

Fordi du ikke beder Image::Magick om at fjerne profile, kommentarer
o.l. fra billedet.

Du kan enten gøre det ved at kalde Strip på() billedet (efter du har
rettet stavefejlen i Resize , eller du kan kalde Thumbnail() som
laver Resize()+Strip() på en gang.

Se:
<http://www.imagemagick.org/www/perl.html>


Mvh.

--
"More than anything, I won't try" Adam Sjøgren
asjo@koldfront.dk

---

> On Wed, 10 Nov 2004 18:51:32 +0100, Palle wrote:
>
> > $image->Set(quality=>$quality);
> > $image->Rezize("${width}x${height}");
> > $image->Write("upload.jpg");
>
> > Hvorfor er filstørrelsen 15 x så stor som normal.
>
> Fordi du ikke beder Image::Magick om at fjerne profile, kommentarer
> o.l. fra billedet.
>
> Du kan enten gøre det ved at kalde Strip på() billedet eller du kan kalde
Thumbnail() som
> laver Resize()+Strip() på en gang.
>
Jeg har prøvet
$Image-> Thumbnail(geometry=>´250x187´);
Der sker ingenting..... også
$Image-> Strip(); $image->Set(quality=>´25´);
er uden funktion
Er Thumbnail og Strip anvendt forkert ?

Hilsen
Palle

---

On Thu, 11 Nov 2004 17:13:56 +0100, Palle wrote:

> Jeg har prøvet $Image-> Thumbnail(geometry=>´250x187´); Der sker
> ingenting..... også $Image-> Strip(); $image->Set(quality=>´25´); er
> uden funktion Er Thumbnail og Strip anvendt forkert ?

Hvad mener du med "Der sker ingenting", kan du være lidt mere
specifik?

Strip-metoden giver ganske stor forskel på min maskine:

$ cat test.pl
#!/usr/bin/perl

use warnings;
use strict;

use Image::Magick;

my ($filename, $strip)=@ARGV;

my $image=Image::Magick->new();
$image->Read($filename);
$image->Set(quality=>25);
$image->Resize('250x187');
$image->Strip if ($strip);
$image->Write('thumb.jpg');
$ ls -l dsc_8750.jpg | cut -d" " -f 6
1588191
$ ./test.pl dsc_8750.jpg
$ ls -l thumb.jpg | cut -d" " -f 6
44077
$ ./test.pl dsc_8750.jpg strip
$ ls -l thumb.jpg | cut -d" " -f 6
2569
$


Mvh.

--
"More than anything, I won't try" Adam Sjøgren
asjo@koldfront.dk

---

---

"Palle" <palle@thyholm.com> writes:

> hvis jeg skriver use strict; får jeg server error

Det lyder som om du ikke får fat i den rigtige fortolker.

Kan du logge ind på maskinen?
--
Thorbjørn Ravn Andersen
http://unixsnedkeren.dk/ravn

---

On Mon, 15 Nov 2004 15:19:42 +0100, Palle wrote:

> Din scource kan heller ikke køre..

Du har lige set det køre på min maskine...

> hvis jeg skriver use strict; får jeg server error

Har du kigget på hvad fejlen er i logfilen, eller kørt dit script på
din egen maskine?

> og my ($filename, $strip)=@ARGV; giver ingen server error men
> stopper afviklingen af scriptet og thumb.jpg fylder stadig 138 Kb
> hvis jeg også undlader my ($filename, $strip)=@ARGV;

Jeg tror du bliver nød til at læse en begynderbog om Perl og så spørge
igen.

(Hint: ovenstående linie er den som mit program bruger til at hente
sine argumenter ind fra kommandolinien).


Mvh.

--
"More than anything, I won't try" Adam Sjøgren
asjo@koldfront.dk