Re: [PERL] ImageMaick og/eller PerlGimp erfaringer...anyone?

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Flemming Mahler Larsen" <sslug@sslug>
Newsgroups: sslug.perl
To: <sslug@sslug>
Sent: Thursday, June 08, 2000 7:59 PM
Subject: [PERL] ImageMaick og/eller PerlGimp erfaringer...anyone?


> Hej
>
...

> I  desperation over ikke at kunne få noget fornuftigt til at fungerer,
> har jeg nu kastet mig over PerlGimp. Der skulle vel ikke være nogen af
> jer, der har et eksempel på hvordan man på få linjer kan loade et
> billede (fra en fil - læse størrelsen af det) og gemme det igen?
>

Jeg har ikke prøvet PerlGimp, men har haft fint success med at bruge
Image::Size i kombination med GD til at resize billeder..

Min kode til selve resizingen ser sådan ud:

#!/usr/bin/perl
use Image::Size;
use GD;

die "USAGE: $0 infile outfile height [quality]\n" unless @ARGV>=3;
$infile=$ARGV[0];
$outfile=$ARGV[1];
$newheight=$ARGV[2];
$kvalitet=$ARGV[3] || 90;

$jpegfile=$ARGV[0];
$j=newFromJpeg GD::Image($jpegfile);
my($width,$height)=imgsize($jpegfile);
$division=$height/$newheight;
$newwidth=int($width/$division);
$k=new GD::Image($newwidth,$newheight);
$k->copyResized($j,0,0,0,0,$newwidth,$newheight,$width,$height);
open(OUT,">$outfile");
binmode OUT;
print OUT $k->jpeg($kvalitet);
close(OUT);
exit(0);

--
Mvh. Nezar Nielsen
http://fez.dk/
Maker of great swiss cheese.