I kind of did. The Synopsis in that documentation was where I got that code from: 
# Shorthand...top level rows() method assumes the first table found in
# the document if no arguments are supplied.
 foreach $row ($te->rows) {
    print join(',', @$row), "\n";

[download]

I am probably misinterpretting what it says, but I took that to mean that I don't have to examine all matching tables with an (outer) foreach loop if I am only concerned with the 1st table found.

Anyway I took your advice and added the outer foreach loop, but I my data file remains empty. Here is the ammended code:

use HTML::TableExtract;


my $te = HTML::TableExtract->new( headers => [qr/Month\s*/,
                                           qr/First\s*/,
                                           qr/High\s*/, 
                                           qr/Low\s*/, 
                                           qr/Sett\s*/, 
                                           qr/Chg\s*/, 
                                           qr/Vol\s*/, 
                                           qr/GOWAVE\*\s*/] );
$te->parse_file($sourcefile);

my $record;

open (DATFILE, ">> meg.dat") or die "Unable to open meg.dat: $!";
print DATFILE "Table:\n";
foreach my $ts ($te->table_states) {
   foreach my $row ($ts->rows) {
      $record = join(',', @$row);
      print $record . "\n";
      print DATFILE $record . "\n";
    }
 }
close DATFILE;

[download]

And this is the html:

<tr align="center" valign="top">
 <td><strong>Month </strong></td>
 <td><strong>First </strong></td>
 <td><strong>High </strong></td>
 <td><strong>Low </strong></td>
 <td bgcolor="#f3f3f3"><strong>Sett </strong></td>
 <td bgcolor="#f3f3f3"><strong>Chg </strong></td>
 <td><strong>Vol</strong></td>
 <td><strong>GOWAVE*</strong></td>
 <td width="1" style="border-bottom-style:none;"></td>
 <td><strong>Vol</strong></td>
 <td style="border-right:1px solid #C0C0C0;"><strong>Open Int</strong>
+</td>
 </tr>

[download]

In reply to Re^2: resolving HTML::TableExtract error by jaydon
in thread resolving HTML::TableExtract error by jaydon

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.