> 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>
