I cut too much out of my post:

At 11:11 AM 2/25/02 +1030, Daniel Falkenberg wrote:
>   $inputSite = "URL OF CHOICE";
>   $tree = HTML::TreeBuilder->new;
>   $address = "http://"; . $inputSite;
>   $request = HTTP::Request->new('GET', $address);
>   $response = $ua->request($request);
>   my $found = 0;
>
>   my $content = $address;
>
>   $p = HTML::TokeParser->new(shift||$content);

All you need to do is change the penultimate line to

my $content = $response->content;

But still check $!.
--
Peter Scott
Pacific Systems Design Technologies
http://www.perldebugged.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to