'Ola, monks.

I've been having a terrible time using HTML::TableExtract to extract a column from an HTML file using the 'column($col)' subroutine. I'm entirely baffled by this, so I've decided to throw in the towel and let some real professionals take a stab at it.

No matter how I use 'column($cols)', I always get a 'row ARRAY(...) out of range (0)' message. I took a peak at the source for HTML::TableExtract, but couldn't determine what's going wrong. Could some benevolent monk show me the way?

Relevant links, for the lazy:

• HTML::TableExtract @ CPAN
• HTML::TableExtract source

#!/usr/bin/perl 

use HTML::TableExtract; 
use WWW::Mechanize;
use Data::Dumper;

use strict; 
use warnings;

my $sensational = WWW::Mechanize->new( autocheck => 1 ); 
$sensational->get('http://www.drudgereport.com/');

chomp(my $html = $sensational->content); 

my $table = HTML::TableExtract->new(); 
$table->parse($html); 

#$table->tables_dump;

my $t = $table->first_table_found; 

#print $t->cell(0,1);        # works fine

# each of these generate a 'row ARRAY(...) out of range (0)' message
#print $t->column(1), "\n";  
#print for $t->column(1);    
#print Dumper $t->column(1);
$t->column(1);
[download]