Amount RegionLevel 31.03.2016Sanction/Renewal
01.04.2016 to 28.02.2017Level 28.02.2017Sanction/Renewal
During Current MonthLevel 26.03.2017Growth
as on
26.03.2017No.BalanceNo.LimitBalanceNo.BalanceNo.LimitBalanceNo.BalanceGDMGUM TEMPORARY-0119600288.3614306272.25194.2219246284.5398919.0212.9419450290.335.801.97 TEMPORARY-0217417167.409466123.6199.4016717167.2482311.719.1116721169.512.272.11 TEMPORARY-0313545180.628395144.63110.3212675179.133337.385.3812630180.131.00-0.49 TEMPORARY-0421826225.8210249133.52113.5121558230.6962410.077.8421524233.993.308.17 TEMPORARY-0541299736.2434023732.70601.5540822732.78317776.3260.4640794736.453.670.21 TEMPORARY-TOTAL1136871598.44764391406.711119.001110181594.375946124.5095.731111191610.4116.0411.97 #### #!usr/bin/perl ####extracting table having table id #### use Modern::Perl; use WWW::Mechanize; use HTML::TableExtract; open(my $OUT, '>>', 'papa') or die "Could not open file $!"; my $mech = WWW::Mechanize->new(); $mech->get('http://xxx.com/tempo/TYPE_CAT/AGL_CROPC0820200.HTM'); my $html_string = $mech->content(); my $te = HTML::TableExtract->new();####extracting all table #### $te->parse($html_string); foreach my $ts ( $te->tables ) { print "Table (", join( ',', $ts->coords ), "):\n"; foreach my $row ( $ts->rows ) { $OUT-> print( join( ',', @$row ), "\n"); } } #### Amount,,,,,,,,,,,,,, Region,Level 31.03.2016,,Sanction/Renewal 01.04.2016 to 28.02.2017,,,Level 28.02.2017,,Sanction/Renewal During Current Month ,,,Level 26.03.2017,,Growth as on 26.03.2017, ,No.,Balance,No.,Limit,Balance,No.,Balance,No.,Limit,Balance,No.,Balance,GDM,GUM TEMPORARY-01,19600,288.36,14306,272.25,194.22,19246,284.53,989,19.02,12.94,19450,290.33,5.80,1.97 TEMPORARY-02,17417,167.40,9466,123.61,99.40,16717,167.24,823,11.71,9.11,16721,169.51,2.27,2.11 TEMPORARY-03,13545,180.62,8395,144.63,110.32,12675,179.13,333,7.38,5.38,12630,180.13,1.00,-0.49 TEMPORARY-04,21826,225.82,10249,133.52,113.51,21558,230.69,624,10.07,7.84,21524,233.99,3.30,8.17 TEMPORARY-05,41299,736.24,34023,732.70,601.55,40822,732.78,3177,76.32,60.46,40794,736.45,3.67,0.21 TEMPORARY-TOTAL,113687,1598.44,76439,1406.71,1119.00,111018,1594.37,5946,124.50,95.73,111119,1610.41,16.04,11.97