perl summary.pl > summary.html

##</code><code>##


#!/usr/bin/perl

use strict;
use HTML::TableExtract;
use LWP::Simple;
use CGI;

use constant CHAPTERS => 14;
use constant TITLE => 'Communicating at Work: Principles and Practices for Business and Professions, 7/e';

my $c = new CGI;

print $c->h1( TITLE );

for ( 1..CHAPTERS ){
  my $count = $_;
  my $URL = 'http://highered.mcgraw-hill.com/sites/0072400722/student_view0/chapter' . $_ . '/chapter_overview.html';
  my $HTML = get($URL) or die $!;
	my $te = new HTML::TableExtract( depth => 2 , count => 1);
     $te->parse($HTML);
     foreach my $ts ($te->table_states) {
       print $c->h3(" Chapter $count Overview");
       foreach my $row ($ts->rows) {
         print $c->p( join(',', @$row), "\n" );
       }
     }
}