Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Grab a Textbook's Chapter Summaries from web

by silent11 (Vicar)
on Jan 21, 2004 at 16:54 UTC ( #322944=CUFP: print w/replies, xml ) Need Help??

This tool allows one to grab all of a Textbook's Chapter Summaries from the web, downloading them into one easy to manage HTML file. Your book must of course be available on McGraw-Hill's website.

perl > summary.html

#!/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 = ' +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" ); } } }


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://322944]
Approved by TStanley
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2018-07-23 02:25 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (459 votes). Check out past polls.