Perl grabbing an external image

[kjhjhjhjadsasda]

Hi

Im trying to grab an external image (through url) and save it locally
on the server. Im using image::grab like so:


use Image::Grab;
$pic = new Image::Grab;
$pic->url('http://groups.google.com/groups/img/groups_medium.gif');
$pic->grab;

open(IMAGE, ">$serverpath");
binmode IMAGE;
print IMAGE $pic->image;
close IMAGE;

This saves a file on the $serverpath location but it keeps being
nothing eg 0k. I remember Ive ran into this previously some time.

Any suggestions??..

Thanks!
M

 

[John Bokma]

Hi

Im trying to grab an external image (through url) and save it locally
on the server. Im using image::grab like so:


use Image::Grab;

use strict;
use warnings;

$pic = new Image::Grab;
$pic->url('http://groups.google.com/groups/img/groups_medium.gif');
$pic->grab;

open(IMAGE, ">$serverpath");

check if this succeeds

Any suggestions??..

See above.

 

[usenet]

use strict;
use warnings;
...
check if this succeeds

FWIW, I've never used Image::Grab, but I did give a quick try to the
OP's code (but within the ordinary BP guidelines as John suggested).
The $pic object is never populated with data by the grab method. I get
a warning on the print (because it's printing null), but otherwise the
code does exactly what the OP says (ie, not much).

The OP's code is pretty much straight out of the perldocs for the
module (which are crap, BTW - many examples contain syntax or usage
errors).

 

[Sisyphus]

The OP's code is pretty much straight out of the perldocs for the
module (which are crap, BTW - many examples contain syntax or usage
errors).

In that case, I suggest (untested) :

use strict;
use warnings;
use LWP::Simple;
my $url ='http://groups.google.com/groups/img/groups_medium.gif';

my $content = get($url);
open(IMAGE, ">filename.gif") or die "$!";
binmode IMAGE;
print IMAGE $content;
close IMAGE or die "$!";

__END__

Cheers,
Rob

 

[John Bokma]

In that case, I suggest (untested) :

use strict;
use warnings;
use LWP::Simple;
my $url ='http://groups.google.com/groups/img/groups_medium.gif';

my $content = get($url);
open(IMAGE, ">filename.gif") or die "$!";
binmode IMAGE;
print IMAGE $content;
close IMAGE or die "$!";

If you don't use LWP::Simple, you can simply (ha ha) drop the file stuff:

use strict;
use warnings;

use LWP::UserAgent;

my $url = 'http://groups.google.com/groups/img/groups_medium.gif';

my $response = LWP::UserAgent->new->get(

$url,
':content_file' => 'filename.gif'
);

$response->is_success or
die "Download failed: ", $response->status_line, "\n";

 

[Tad McClellan]

an external image

What would an "internal image" be then?

 

[John Bokma]

What would an "internal image" be then?

The thing after the successfull grabbing :-D

 

[Brian Wakem]

Hi

Im trying to grab an external image (through url) and save it locally
on the server. Im using image::grab like so:


use Image::Grab;
$pic = new Image::Grab;
$pic->url('http://groups.google.com/groups/img/groups_medium.gif');
$pic->grab;

open(IMAGE, ">$serverpath");
binmode IMAGE;
print IMAGE $pic->image;
close IMAGE;

This saves a file on the $serverpath location but it keeps being
nothing eg 0k. I remember Ive ran into this previously some time.

Any suggestions??..

I don't know the module so I'll assume your code is ok.

The obvious problem to me is that google block certain useragents, I
don't know what useragent the module declares itself to be, but it's
probably blocked, as is LWP::Simple (libwww-perl/x.xxx).

You'll need to set the useragent to something a browser would use.


$ perl -MLWP::Simple -e 'print length
get("http://groups.google.com/groups/img/groups_medium.gif")'

0

$ perl -MLWP::UserAgent -e 'my $ua = LWP::UserAgent->new( agent =>
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; CS.v0.2; .NET CLR
1.0.3705)" );my
$res=$ua->get("http://groups.google.com/groups/img/groups_medium.gif");print
length $res->content;'

5183