RE: Save image to disk
Had to uninstall ActivePerl and reinstall, rather than just install over older
version, and then it worked, no need to 'ppm install LWP::Simple'.
use LWP::Simple;
if (my $img = get("$image_url")) {
open OUT, "> $file_to_write";
binmode OUT;
print OUT $img;
close OUT;
print "OK.\n";
} else {
print "FAIL.\n";
}
Gary
> -Original Message-
> From: Gary Hawkins [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, March 14, 2002 6:10 PM
> To: [EMAIL PROTECTED]
> Subject: FW: Save image to disk
>
>
> Worked fine on the remote system, but, can someone give me the ppm
> install ...
> line to install LWP::Simple?
>
> > -Original Message-
> > From:
> > Sent: Thursday, March 14, 2002 8:16 AM
> > To: 'Gary Hawkins'
> > Subject: RE: Save image to disk
> >
> >
> > It looks like you didn't get a straight answer. You can use LWP::Simple to
> > fetch the image, then can save it to disk.
> >
> > use LWP::Simple;
> >
> > my $img = get("http://someplace.com/images/foo.gif";);
> >
> > open OUT, "> foo.gif" or die $!;
> > binmode OUT; # only needed on Windows (I think)
> > print OUT $img;
> > close OUT;
> >
> >
> >
> > Would like to save images to disk using their URL's. Hoping someone can
> > give
> > me a jump start on it.
> >
> > Gary
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
FW: Save image to disk
Worked fine on the remote system, but, can someone give me the ppm install ...
line to install LWP::Simple?
> -Original Message-
> From:
> Sent: Thursday, March 14, 2002 8:16 AM
> To: 'Gary Hawkins'
> Subject: RE: Save image to disk
>
>
> It looks like you didn't get a straight answer. You can use LWP::Simple to
> fetch the image, then can save it to disk.
>
> use LWP::Simple;
>
> my $img = get("http://someplace.com/images/foo.gif";);
>
> open OUT, "> foo.gif" or die $!;
> binmode OUT; # only needed on Windows (I think)
> print OUT $img;
> close OUT;
>
>
>
> Would like to save images to disk using their URL's. Hoping someone can
> give
> me a jump start on it.
>
> Gary
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Save image to disk
Do have a Win32 version of wget working but not use a Perl module? It's like not breathing. > You probably don't need a perl script for this, there's this command > call wget > in linux which you can use to mirror a site, and using the -A option you can > make it download file with specified extention (gif, jpg..etc). > > Tor. > > > Would like to save images to disk using their URL's. Hoping > someone can give > > me a jump start on it. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Save image to disk
You probably don't need a perl script for this, there's this command call wget in linux which you can use to mirror a site, and using the -A option you can make it download file with specified extention (gif, jpg..etc). Tor. Gary Hawkins wrote: > Would like to save images to disk using their URL's. Hoping someone can give > me a jump start on it. > > Gary > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Save image to disk
Would like to save images to disk using their URL's. Hoping someone can give me a jump start on it. Gary -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
