Hi Monks,
My perl code is something like this and it is also working fine:
use HTML::TableExtract;
$te = HTML::TableExtract->new( headers => [qw(Date Price Comments)] )
+;
$te->parse($html_string);
# Examine all matching tables
foreach $ts ($te->tables) {
print "Table (", join(',', $ts->coords), "):\n";
foreach $row ($ts->rows) {
print join(',', @$row), "\n";
}
}
My table is something like this:
<table>
<tr><td>Date</td><td>Price</td><td>Comments</th></tr>
<tr onclcick="dkfjskdjfskfd"><td>21/9</td><td>2324</td><td>abc</td></t
+r>
<tr onclcick="dkfjskdjfskfd1"><td>21/9</td><td>2324</td><td>abasdasc</
+td></tr>
<tr onclcick="dkfjskdjfskfdsdfsdf2"><td>21/9</td><td>2324</td><td>absa
+dsadsc</td></tr>
</table>
Now the data are coming fine, but I want to read the onclick properties also for each row.
so output should be something like this :
dkfjskdjfskfd, 21/9, 2324, abc
dkfjskdjfskfd1, 21/9, 2324, abasdasc
dkfjskdjfskfdsdfsdf2, 21/9, 2324, absadsadsc
Please advise to include the row properties through HTML::Table::Extract