Image::Shoehorn, amongst others, can be used to resize images. Take a look around the Image:: modules in CPAN.

It may be overkill, but ImageMagick or GraphicsMagick would do this and almost anything else you can imagine to an image. The Perl interfaces they supply are good. Same code base for both; basically different development/release philosophies if I understand the recent split correctly.

A massive flamewar beneath your chosen depth has not been shown here

# write the file to a temporary location
    my $tmp_loc = $TEMP_IMG_DIR . $image_name;
    my $whan;
    open($whan,">$tmp_loc") || die "Cannot write $tmp_loc $!";
    print $whan $temp_file_var;
    close($whan);


# Resize image and write it to the appropriate location
use Image::Thumbnail;
    my $t = new Image::Thumbnail(
        size       => 450,
        create     => 1,
        inputpath  => $tmp_loc,
        outputpath => $main_loc
    );

# Get the new size of the main image
use Image::Info qw(image_info dim);
    my $info = image_info($main_loc);
    my ($w, $h) = dim($info);
[download]

I hope that you can modify this for your use!

oakbox

 Others have already pointed you at some image modules, but the way I read the question is that you have people inputing an URL for an image which you're then including inline.

 If that is the correct interpretation then you aren't going to have any joy with the modules; if the image isn't upon your server then you can't easily get it's size - you'd have to download a copy from the remote site and work on that.

 If this is for a forum or script of some kind you might be better allowing the user to upload an image to your site and then using that local copy. That way you could filter the image on size/dimensions.

 If you want to go this way make sure you use strict, use taint, and look at the CGI module for file uploads.

I had assumed that the OP had actually wanted to resize the raw graphic. If they just want to change the displayed size surely just munging the width/height attributes of the img tag would be simpler?

Um, yeah, if the goal is to change the raw graphic file then someone with a lot more experience than me would have to post something! But the SOP read like the goal was to change the size of the graphic based on the users screen settings. I might have misinterpretted. The (*gulp for non-Perl*) js option would automate the munging. I'll look the SOP over again and see where I read wrong c",)
Cheers,
P

---

Don't worry about people stealing your ideas. If your ideas are any good, you'll have to ram them down people's throats.

-Howard Aiken

#! /usr/bin/perl

use strict;
use warnings;

use Image::Size;
use LWP::Simple;
use CGI;

my $cgi = new CGI;
my $image = $cgi->param('image');

my $contents = get($image);
my ($width, $height, $error) = imgsize(\$contents);

#   attributes.
if (($width > 300) || ($height > 300)) {
  if ($width > $height) {
    # Image is wider that it is tall
    ($width,$height) =  (300, int((300 * $height) / $width));
  }else{
     # Image is taller than it is wide
     ($width,$height) = (int((300 * $width) / $height), 300);
  }
}

#output image
print "<IMG src=\"$image\" width=\"$width\" height=\"$height\">";
[download]

I saw that NY Times uses to create thumbnails from cropping images. But sometimes they say very little of the whole image.

I think that it is best to specify a standard (html: width and height) square (130 x 130) with the real image to be seen after clicking on it.

A square might not represent the real image well but at small proportions, one wouldn't be able to recognize well the difference and you gain some client speed at preloading the real image.

I'm no hard-core web developer, but I do recall readingsomewhere that using the width/height properties varies in results on different browsers. Some might squeeze the image differently than others. If this is an intranet site that will have homogenous users (everyone on IE:5 or something), it's no biggie then. But if it's open to the world, I would suggest going the Image::* routes mentioned above, as it will ensure a consistent face for all your users.