Get a remote image with Perl

rigel_kent · 08-31-2006, 08:00 AM

Hi,

I want to download some jpegs files from an http url; if I use "get" and print the output to a file with a jpeg extension no image appears (all is black with stripes).

How can I do this?

Cheers,

Rigel_Kent

spirit receiver · 08-31-2006, 08:33 AM

The following works fine here:

Code:

#!/usr/bin/perl -w

use LWP::UserAgent;

my $ua = new LWP::UserAgent;

my $response = $ua->get( 'http://www.jpeg.org/images/sky_main.jpg' );

open( FILE, "> image.jpg");
print FILE $response->content();
close FILE;