RE: Save image to disk

[Gary Hawkins]

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 ...
> <url> 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]