Aqustin, Yes that code works perfectly. The problem (I think) I am having is at this line here...
LWP::Simple::is_success(LWP::Simple::getstore($address, $html_file). It just doesn't seem to be storing it as a file? Any other ideas? Thx, Dan -----Original Message----- From: Agustin Rivera [mailto:[EMAIL PROTECTED]] Sent: Tuesday, 26 February 2002 9:54 AM To: Daniel Falkenberg; [EMAIL PROTECTED] Subject: Re: Writing file to Windows I'm getting a ton of errors just trying to get your code to work. But since you are addressing the simple grabbing of a web page, does this code work... use LWP::Simple; use strict; my $address="http://www.pollstar.com";; my $content = get($address); print $content; Agustin Rivera Webmaster, Pollstar.com http://www.pollstar.com ----- Original Message ----- From: "Daniel Falkenberg" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, February 25, 2002 2:56 PM Subject: Writing file to Windows > Hey All, > > Is there any reason why I can't seem to get... > > LWP::Simple::is_success(LWP::Simple::getstore($address, $html_file) > > to write to a file. I have used the exact same code on a Linux box but > when I go to run it on a Windows box it doesn't seem to download it and > save it to a dir? Is this a permission problem? Is there something I am > missing here? > > my $content = LWP::Simple::get($address); > $html_file = "foo.html"; > > if (LWP::Simple::mirror($address, $html_file) == RC_NOT_MODIFIED) {} > if (LWP::Simple::is_success(LWP::Simple::getstore($address, > $html_file))) { > $p = HTML::TokeParser->new(shift||$html_file); > if ($p->get_tag("h1")) { > my $html_data= $p->get_trimmed_text; > print $html_data; > } > > Regards, > > Dan > > -- > 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]
