Re: (nrd) Hints & Tips on passing HTML?

[newrisedesigns]

If you are extracting information from pages with a similar format: HTML::TokeParser. Fetching the pages from a different server? Use LWP.

TokeParser easily strips out the text above:

#just to give you an idea about extracting text
#not complete or tested
while(my $token = $stream->get_token()){
    if(($token->[0] eq 'S') && ($token->[1] eq 'td')){
        my @tokens;
        my (@headers, @links);
        push(@tokens, $stream->get_token()) x 2;
        if(($tokens[0][0] eq 'S') && ($tokens[0][1] eq 'b')){
            push(@headers, $tokens[1][1]);
        }
        if(($tokens[0][0] eq 'S') && ($tokens[0][1] eq 'a')){
            push(@links, $tokens[0][2]{'href'});
        }
        $stream->unget_token(@tokens);
    }
}

When redisplaying that information, push it into a nice template using HTML::Template. Make it dynamic using CGI and the CGI module.

John J Reiser
newrisedesigns.com