Dear monks,

I have asked the question before How to resize picture in windows?. Each of them answered in very different way many thanks for their ideas. And José Ramón Martínez, ask to reply the code when it works. Yeah, you may download ImageMagick-6.2.3-6-Q16-windows-dll.exe from the path http://www.imagemagick.org/script/binary-releases.php#windows and install it in your windows, while installing there is an option in checkbox Install PerlMagick for ActiveStatePerl check it and install it will automatically install with module in your system. Than, try the below code to resize the image. Congrats, to all. And thanks to astroby to give me a installer link.

   use Image::Magick;    
   my($image, $x);    
   $image = Image::Magick->new;    
   $x = $image->Read('Images.jpg');       
   warn "$x" if "$x";    
   $x = $image->Crop(geometry=>'200x50');    
   warn "$x" if "$x";    
   $x = $image->Write('x.png'); 
   warn "$x" if "$x";
[download]

Reparented by davido per consideration.

$ENV{'PATH'} = "C:\\Program Files\\imageMagick;" . $ENV{'PATH'};
# ...
for my $file (@files)
{
    $fileNumber++;
    my $newFile = "$largeDir\\$basename$fileNumber.JPG";
    print "$fileNumber copying $file...\n";
    copy("$originalDir\\$file", $newFile);

    open(INFO, "identify $newFile |");
    my $info = <INFO>;
    close INFO;
    my ($width, $height) = ($1, $2) if ($info =~ /\s(\d+)x(\d+)\s/);

    my ($newWidth, $newHeight, $thumbWidth, $thumbHeight);
    if ($width == 1200 && $height == 1600)
    {
        ($newWidth, $newHeight) = (600, 800);
        ($thumbWidth, $thumbHeight) = (98, 130);
    }
    elsif ($width == 1600 && $height == 1200)
    {
        ($newWidth, $newHeight) = (800, 600);
        ($thumbWidth, $thumbHeight) = (130, 98);
    }
    else
    {
        ($newWidth, $newHeight) = (600, 600);
        ($thumbWidth, $thumbHeight) = (98, 98);
    }

    my $newDimensions = $newWidth . 'x' . $newHeight;
    my @command = ('mogrify',
                   '-quality',
                   '100',
                   '-geometry',
                   $newDimensions,
                   $newFile);
    print "mogrifying $newFile...\n";
    system(@command);
[download]

-Joe

There is an "Image-Magick-Thumbnail-Fixed" module if that is of any use:

If you can get GD installed, then something like this will get you started:

#! perl -slw
use strict;
use GD;

our $X ||= 100;
our $Y ||= 100;

for my $imgName ( @ARGV ) {
    my $img1 = GD::Image->new( $imgName ) or warn "$imgName: $!" and n
+ext;
    my $img2 = GD::Image->new( $X, $Y, 1 );
    $img2->copyResampled( $img1, 0,0, 0,0, $X,$Y, $img1->getBounds );
    ( my $thumbName = $imgName ) =~ s[(\..+$)][.thumb.png];
    open OUT, '>:raw', $thumbName or warn "$thumbName: $!" and next;
    print OUT $img2->png;
    close OUT;
}
[download]

It resizes every image supplied on the command line to the same size (100x100 by default) and outputs them as filename.ext => filename.thumb.png.

# Convert image from data in scalar
my $img = Imager->new;
$img->read(data=>$PixData, type=>'jpeg')
           or die "Cannot read: ", $img->errstr;

my $thumb = $img->scale(scalefactor=>.3);

$thumb->write(file=>"$0-t.jpg", type=>'jpeg')
           or die "Cannot write: ",$img->errstr;
[download]

Or you can find the binary from the Image::Magick website! http://www.imagemagick.org/script/binary-releases.php. It seems to me that this is a simple question that's getting complicated answers...

Here is something to complicate it all more (just a bit):

I once found Graphic::Magick - It was presented as IM's windows stable release. But now, I can't find it again!

{

\

(

'

v

'

)

/

}

(

\

_

/

)

_

_

_

_

`

(

)

'

_

_

_

_

(

=

(

^

Y

^

)

=

(

_

_

^

^

^

^

_

_

_

_

\

_

(

m

_

_

_

m

)

_

_

_

_

_

_

_

_

_

)

c

h

i

a

n

o

,

a

l

b

e

r

t

o

Wherever I lay my KNOPPIX disk, a new FREE LINUX nation could be established