I'm not sure that's it, because this code just ran fine on my Windows 2000 box...
use LWP::Simple; use strict; my $address="http://www.pollstar.com";; my $html_file='temp'; LWP::Simple::is_success(LWP::Simple::getstore($address, $html_file)); Agustin Rivera Webmaster, Pollstar.com http://www.pollstar.com ----- Original Message ----- From: "Daniel Falkenberg" <[EMAIL PROTECTED]> To: "Agustin Rivera" <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]> Sent: Monday, February 25, 2002 3:27 PM Subject: RE: Writing file to Windows > 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]
