use LWP::Simple;
use URI;
use HTML::TableContentParser;
use HTML::Entities;
our $page;
our $tables;
our $tcp = new HTML::TableContentParser;
our $modules;
our $query;
our $count=0;
our $query = "http://www.municipalcourt.org:81/connection/court/lookup.xsp?in=ct&case=04TRD02044-A&view=detail";
$page = get($query);
$p = HTML::TableContentParser->new();
$tables = $p->parse($page);
for $t (@$tables) {
for $r (@{$t->{rows}}) {
print "Row: ";
for $c (@{$r->{cells}}) {
print "[$c->{data}] ";
}
print "\n";
}
}
####
Row:
Row: [
]
Row:
Row: [Home]
Row:
Row: [-Summary]
Row: [-Status
]
Row: [-Docket
]
Row: [-Balance]
Row: [-Payments
]
Row: [-Priors
]
Row: [-AKA]
Row:
Row: [Civil聽Lookup]
Row: [TR/CR聽Lookup]
Row:
Row: [Civil聽Query]
Row: [TR/CR聽Query]
Row: [] [
Detail for TR/CR Case 04TRD02044-A
]
Row: []
Row: [
]
Row:
Row:
Row:
.....................................