HTML::TableExtract 没有结果，是怎么回事呢？？

shahuala

我想用HTML::TableExtract 模块解析网页，试了下他的例子如下，但是什么都没输出，请问大家是怎么回事啊？？




use HTML::TableExtract;
use Data:umper qw(Dumper);
my $html_string = "http://www.1230**/mormhweb/kyfw/ypcx/";
$te = HTML::TableExtract->new();
$te->parse($html_string);
foreach my $ts ($te->tables) {
    print "Table found at ", join(',', $ts->coords), ":\n";
    foreach my $row ($ts->rows) {
       print "   ", join(',', @$row), "\n";
    }
}

shahuala

我傻叉了。。没用get...