Re: Life in the land of OOP

[eak]

Here is a quick and dirty parser using HTML::TokeParser, which is an alternative interface to HTML::Parser.

#!/usr/bin/perl -w
#
use HTML::TokeParser;
my $p = HTML::TokeParser->new("index.html");
while (my $token = $p->get_token) {
  if($token->[0] eq 'S' and $token->[1] eq 'td'){
   print $p->get_text('td')."\n";
  }
 
}