关于HTML::TableExtract的使用问题

shixinqianli

请教各位：以下一段是为获取网页中表格内容，但我运行程序或却毫无反应，请各位大侠看看有什么问题，谢谢啦
#!/usr/bin/perl -w
use strict;
use HTML::TableExtract;
# By headers
my $html=get("http://rammb.cira.colostate.edu/products/tc_realtime/archive_strmfcst.asp?storm_identifier=WP022013");
my $te = HTML::TableExtract->new();
print "start.\n";
$te->parse_file($html);
foreach my $ts ($te->tables) {
   print "start table.\n";
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
      print "start row.\n";
      print join(',', @$row), "\n";
   }
}

兰花仙子

1. 打开debug模式
2. 或者用Data::Dumper把对象dumper出来观察

福瑞博德

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use LWP::Simple;
   
4. use HTML::TableExtract;
   
5. my $html=get("http://rammb.cira.colostate.edu/products/tc_realtime/archive_strmfcst.asp?storm_identifier=WP022013");
   
6. my $te = HTML::TableExtract->new();
   
7. print "start.\n";
   
8. 
   
9. $te->parse($html);
   
10. my $table = $te->first_table_found;
    
11. 
    
12. foreach my $ts ($te->tables) {
    
13. 
    
14.    print "start table.\n";
    
15.    print "Table (", join(',', $ts->coords), "):\n";
    
16.    foreach my $row ($ts->rows) {
    
17.       print "start row.\n";
    
18.       print join(',', @$row), "\n";
    
19.    }
    
20. }

复制代码

回复 1# shixinqianli


   

福瑞博德

回复 2# 兰花仙子 他用的是parse_file