This is from a small test script I wrote yesterday. It creates a thumbnail while retaining image proportions.
#!/usr/bin/perl -w
use strict;
use Image::Magick;
sub make_thumb
{
my $file = shift;
my $thumb = shift;
my $size = 100; # image size; either width or height will be a 100
+ pixels (or both)
my $img = new Image::Magick;
$img->Read($file);
my ($width, $height) = $img->Get("width", "height");
if ($width > $height) {
my $ratio = $size / $width;
$height *= $ratio;
$width = $size;
} elsif ($height > $width) {
my $ratio = $size / $height;
$width *= $ratio;
$height = $size;
} else {
$width = $size;
$height = $size;
}
$img->Resize( width => $width, height => $height, blur => 1 );
$img->Write($thumb);
}
make_thumb("/path/to/img.png", "/path/to/thumbnail.png");
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|