Re: table capture


Perl-Sensitive Sunglasses
	PerlMonks

Re: table capture

by zentara (Archbishop)

on Apr 18, 2005 at 12:29 UTC ( [id://448809]=note: print w/replies, xml )

Need Help??

in reply to table capture

Here is an example using HTML::TableExtract. Look at the printout, and you should be able to regex it (or deduce the array structure) and assign it to variables.

#!/usr/bin/perl
use HTML::TableExtract;
use LWP::Simple;
use Data::Dumper;

my $te = new HTML::TableExtract(gridmap=>1);

my $content = get("http://www.cse.lk/marketinfo/splsum.jsp");

$te->parse($content);
  foreach $ts ($te->table_states)
    {
      foreach $row ($ts->rows)
       {
       #print Dumper $row;
        print @{$row},"\n";       

       }
}
[download]

I'm not really a human, but I play one on earth. flash japh