getting remote image sizes with image::size lwp

[Matthew Galaher]

I am trying to get the width and height attributes of jpg's and gif's
on a remote server.
I have found Image::Size and LWP but am unable to put them together so
that I can open an http path (e.g.
[url]http://wwwfoobar.com/dirname/dirname/dirname/images/111203.gif[/url]) and
print out the image size. Any help would be appreciated including where
I might go to read more on this. TIA

My first attempt that failed:

#!/usr/bin/perl
# The next few lines use the LWP (Library www perl) module
# to read the files via http that each url points to.
$the_url =
'http://wwwfoobar.com/dirname/dirname/dirname/images/111203.gif';
use LWP::UserAgent; # This will cover all of them!
use URI::URL;
use HTTP::Request;
$hdrs = new HTTP::Headers(Accept => 'text/plain',
User-Agent => 'MegaBrowser/1.0');

$url = new URI::URL($the_url);
$req = new HTTP::Request(GET, $url, $hdrs);
$ua = new LWP::UserAgent;
$resp = $ua->request($req);

if ($resp->is_success) {

# If connection is successful the contents of the file
# read will now go into the variable $file
$image = $resp->content;

}
else {

# If connection is not successful then make note of this
#print $resp->message;
$image = "socket_failure";
$sf_exists = "true";
}

use Image::Size;
($globe_x, $globe_y) = imgsize($image);
print $globe_x . " " . $globe_y;



[R. Joseph Newton]

Matthew Galaher wrote:

> I am trying to get the width and height attributes of jpg's and gif's
> on a remote server.
> I have found Image::Size and LWP but am unable to put them together so
> that I can open an http path (e.g.
> [url]http://wwwfoobar.com/dirname/dirname/dirname/images/111203.gif[/url]) and
> print out the image size. Any help would be appreciated including where
> I might go to read more on this. TIA
>
> My first attempt that failed:

[snip--not yet relevant]

Please show us the code and results when you:

Test Image::Size in isolation, using a local image file of known properites. Include any error
messages, the clearly marked lines they refer to, and a description of what happens or doesn't when you
run it.

Make sure you have:
use strict;
use warnings;
at the top of your script. People are usually not willing to spend much time on you problem until you
do.

Test LWP in isolation, getting a known plain text file and reading out the contents. Include any error
messages, the clearly marked lines they refer to, and a description of what happens or doesn't when you
run it.

Make sure you have:
use strict;
use warnings;
at the top of your script. People are usually not willing to spend much time on you problem until you
do.

Joseph