in reply to table capture
Here is an example using HTML::TableExtract. Look at the
printout, and you should be able to regex it (or deduce the array structure) and assign it to variables.
I'm not really a human, but I play one on earth. flash japh
#!/usr/bin/perl use HTML::TableExtract; use LWP::Simple; use Data::Dumper; my $te = new HTML::TableExtract(gridmap=>1); my $content = get("http://www.cse.lk/marketinfo/splsum.jsp"); $te->parse($content); foreach $ts ($te->table_states) { foreach $row ($ts->rows) { #print Dumper $row; print @{$row},"\n"; } }
I'm not really a human, but I play one on earth. flash japh
In Section
Seekers of Perl Wisdom