Hi,
I want to write a pearl script that will go out to a web
site and download the page. Then pull certain value pairs
out of it. Basically I want to see graphs of snr etc.
Is grabbing the html possible in perl? I know the parsing
is. Basically I want to see if any of the values change and
it corresponds to cable outages.
example web page to parse
=============== =============== ===
<html>
<head>
<title>Thomso n Cable Modem Diagnostics</title>
<META HTTP-EQUIV="Refresh" CONTENT="5">
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#000000"
bgcolor="#7686B 6">
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td width="134" height="58" bgcolor="#394a8 4"
align="center"> <img src="images/thomson.gif" width="103"
height="34"></td>
<td width="506" height="58" bgcolor="#394a8 4"
colspan="4"><fo nt face="Arial"
color="#ffffff" ><big><big>&nbs p; Modem Technical Details
Status Page</big></big><br> <small> &n bsp; This
page will auto-refresh periodically.</small></font></td>
</tr>
<tr>
<td width="134" height="108" bgcolor="#394a8 4"
rowspan="4"><im g src="images/space.gif" width="134"
height="9"><br> <font color="#FFFFFF"
face="Arial"><s mall><small>&nb sp; Status
Code: &nbs p;</small></small><br>
<small><small>& nbsp; Oper ational </small></small><br>
<small><small>& nbsp; Software Version:<br>
ST.23.16.50 <br> Software Model:<br>
0719 <br> Bootloader:<br>
04.01</small></small></font></td>
<td width="506" height="18" colspan="4"><im g
src="images/topcorner.gif" width="506" height="9"><br>
<small><font
face="Arial"><s trong> &nb sp;
Cable Signal Details</strong> </font></small></td>
</tr>
<tr>
<td width="18" height="90"
rowspan="3">&nb sp; </td>
<td width="290" height="9" bgcolor="#FFFFF F"><img
src="images/top1.gif" width="290" height="9"></td>
<td width="180" height="9" bgcolor="#FFFFF F"><img
src="images/top2.gif" width="180" height="9"></td>
<td width="18" height="90" rowspan="3">&nb sp; </td>
</tr>
<tr>
<td width="290" bgcolor="#FFFFF F"><font
face="Arial"><s mall><strong>&n bsp; Forward
Path:</strong><br>
&nb sp; Signal Acquired
at 729.025 MHz <br>
&nb sp; SNR: 36.1 dB<br>
&nb sp; Received Signal
Strength: -0.3 dBmV <br>
&nb sp;
Micro-Reflections: 22 dBc <br>
&nb sp; Modulation: 256
QAM </small><br> <big><big>  ; </big></big></font></td>
<td width="180" bgcolor="#FFFFF F"><font
face="Arial"><s mall><strong>Re turn Path:</strong><br>
&nb sp; Connection: Acquired <br>
&nb sp; Frequency: 37 MHz <br>
&nb sp; Power Level: 46.2 dBmV <br>
&nb sp; Channel ID: 4 <br>
&nb sp; Modulation: 16 QAM</small><br>
<big><big>  ; </big></big></font></td>
</tr>
<tr>
<td width="290" height="9" bgcolor="#FFFFF F"><img
src="images/bot1.gif" width="290" height="9"></td>
<td width="180" height="9" bgcolor="#FFFFF F"><img
src="images/bot2.gif" width="180" height="9"></td>
</tr>
<tr>
<td width="134" height="18"
bgcolor="#394a8 4"><small><f ont color="#000000"
face="Arial"><s mall> <a href="diagnosti cs.htm">Back to
Diagnostics</a></small></font></small></td>
<td width="506" height="18"
colspan="4"><sm all><strong><fo nt
face="Arial">&n bsp;   ; &n bsp; Data
Service Details</font></strong></small></td>
</tr>
<tr>
<td width="134" height="90" bgcolor="#394a8 4"
rowspan="3"></td>
<td width="18" height="90"
rowspan="3">&nb sp; </td>
<td width="470" height="9" bgcolor="#FFFFF F"
colspan="2"><im g src="images/top.gif" width="470"
height="9"></td>
<td width="18" height="90" rowspan="3">&nb sp; </td>
</tr>
<tr>
<td width="470" bgcolor="#FFFFF F"
colspan="2">&nb sp; <font face="Arial"><s mall>
Provisioned Address: Yes<br> &nb sp; Provisioned
Time: Yes<br> &nb sp; Provisioned Configuration:
Yes<br> &nb sp; Registered: Yes<br>
&nb sp; BPI: Enabled</small><br> <big>
</big></font></td>
</tr>
<tr>
<td width="470" height="9" bgcolor="#FFFFF F"
colspan="2"><im g src="images/bot.gif" width="470"
height="9"></td>
</tr>
<tr>
<td width="134" height="52"><im g
src="images/botcorner.gif" width="134" height="52"></td>
<td width="506" height="52" colspan="4"></td>
</tr>
</table>
</body>
</html>
=============== =============== ===
Comment