#!/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"; } }
In reply to Re: Life in the land of OOP
by eak
in thread Life in the land of OOP, and I'm confused.
by jcwren
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |