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]
