Dave, Ugh.... thank you! That worked prefect. :~)
Brian > -----Original Message----- > From: Dave Gray [mailto:[EMAIL PROTECTED] > Sent: Friday, December 03, 2004 11:19 AM > To: Beginners (E-mail) > Subject: Re: LWP getstore > > > > I'm having trouble w/ getstore... It works fine when I use > it like this.... > [snip] > > ... but when I use in the script below, all that happens is > the files are > > created but they are only 1kb and can not be displayed... > When I use the > > script above the file size is 14kb and looks great... > Obviously, I'm not > > "get"ing the data.. :~) If possible, can someone point me > in the right > > direction..... BTW this script works great when I use it > as a screen > > scraper w/ HTML::TokeParser... > [snip] > > my $images = getstore($url,$file); > > die "Error $images on $url" unless is_success($images); > > > > open(OUT, ">", $file) or die "can't open $file:$!"; > > print OUT $images; > > close (OUT); > [snip] > > The three lines dealing with OUT are clobbering all your files after > they get downloaded. Try commenting those out. > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
