Grabbing Specific Image

Hi Monks!

All I am trying to do is to go to an specific image url and save a copy of it to a local directory, and my code doesn't work. Is there a easier way of doing that? Here is some of my code, may be someone could show me where I am doing something wrong.

...
use LWP::Simple;
use HTML::TokeParser;
use CGI::Carp;

my ($image, $image_dir, $image_url, $new_image);

print "Content-type: text/html\n\n";

$image_dir = "../../store_here";

# $image should contain GIF data after this.
$image_url = "http://www.dimages/image_sample.gif" unless $url =~ m{^h
+ttp://};
$image = get($image_url) || '';

######
# Save copy of image
open(OUTPUT_IMG_FILE, ">$image_dir") || die "Unable to open $image_dir
+: $!";
binmode(OUTPUT_IMG_FILE);
print OUTPUT_IMG_FILE $image;
close(OUTPUT_IMG_FILE);
######
[download]

Thanks a lot!!!!

Comment on Grabbing Specific Image Download Code
Re: Grabbing Specific Image by akho (Hermit) on May 01, 2007 at 16:03 UTC
There is a misprint in the URL; and you're trying to open a direcrory for writing. The line where you're setting `$image_url` is also suspicious; what's `$url`? Upd And if you actually meant http://www.dimages.com/image_sample.jpg — you need to do something about URL dispatch there, because all http://www.dimages.com/* URLs seem to return the same page. Also, add <body> tags to that page (it seems to be a work in progress, and I boldly assume it's yours; excuse me if it is not so).	[reply] [d/l] [select]
Re^2: Grabbing Specific Image by Anonymous Monk on May 01, 2007 at 16:05 UTC
I am sorry, it should be `$image_url = "http://www.dimages/image_sample.gif" unless $image_url = +~ m{^http://};` [download]	[reply] [d/l]
Re: Grabbing Specific Image by Joost (Canon) on May 01, 2007 at 16:03 UTC
`$image = get($image_url) or die "Can't get image";` [download] My guess is it doesn't work because http://www.dimages/image_sample.gif does not exist. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re: Grabbing Specific Image by Albannach (Prior) on May 01, 2007 at 16:07 UTC
This is easier: `perl -MLWP::Simple -e"getstore $url, $localfile"` -- I'd like to be able to assign to an luser	[reply] [d/l]
Re: Grabbing Specific Image by merlyn (Sage) on May 01, 2007 at 16:46 UTC
People work too hard at copying URLs to disk. Witness: `use LWP::Simple qw(mirror); mirror("http://www.dimages.example.com/image_sample.gif", "local_file. +gif");` [download] What's nice is that this also respects being re-run, caching the local version and properly passing "if-modified-since" to minimize the work if the file hasn't changed. -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
Re^2: Grabbing Specific Image by Anonymous Monk on May 01, 2007 at 17:08 UTC
That works, but how could I send the image file to another directory.	[reply]
Re^3: Grabbing Specific Image by merlyn (Sage) on May 01, 2007 at 17:09 UTC
"local_file.gif" is whatever local path you want. Use "some/other/dir/local_file.gif" if you want. -- Randal L. Schwartz, Perl hacker	[reply]
Re^4: Grabbing Specific Image by bart (Canon) on May 02, 2007 at 13:48 UTC


Perl-Sensitive Sunglasses
	PerlMonks

Grabbing Specific Image

The best material for plates (tableware) is: