Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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
[Lady_Aleena]: I wish I could have helped you further but I've never uploaded to cpan or metacpan so I don't know much.
[Lady_Aleena]: If metacpan had a pod checker too, I could check a pod I wrote with a module link there.

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2017-05-27 04:40 GMT
Find Nodes?
    Voting Booth?