Rob Pengelly — Mon, 13 Mar 2000 15:38:00 +0000

Ok, here is the code you need

code:

#!/usr/bin/perl 
use LWP::Simple;
$html = get("http://www.kcc.net/hcs/homework.htm");

while($html =~ m/Grade 9 Homework<\/font><\/b><\/td>\s+<\/tr>(.+?)<td width="18%" bgcolor="#008000" align="center">/sogi)
{
	$grade9 = "<table border=\"1\" width=\"100%\">$1<\/table>";

}

print "Content-type:text/html\n\n";
print $grade9;
[/code]

An example of it can be viewed at  http://dlo.net/~rob/cgi-bin/grade9.cgi 

To use it on your page if you have SSI you can go

<!--#exec cgi="/cgi-bin/grade9.cgi"-->



------------------
Termites eat through wood two times faster when listening to rock music.

Steve — Mon, 13 Mar 2000 04:01:00 +0000

Please...

Steve — Sun, 12 Mar 2000 02:11:00 +0000

Umm, could you explain it a little better. I'm not that good at CGI.

-steve

tazman — Fri, 10 Mar 2000 10:36:00 +0000

Set a flag variable up to check for the begining of the section you wish to import(I have inserted text to look for a link tag=9):

Outside the foreach block set $start=0;$end=0;

Then just inside the foreach block set the test

if($line=~/<A NAME="9">/){
$start=1;
}

Then set a flag variable up to check for whatever denotes the end of your data section -or- what denotes the start of the next (I have inserted a link tag for grade 10)

if($line=~/<A NAME="10">/){
$end=1;
}
Then just set a control if block within the foreach block
if($start && !$end){
....
The rest of the foreach block here
....
}

Now just change the URL variable to
$doc=get "http://www.kcc.net/hcs/homework.htm";;

and clean up the footer.

Tazman