<?xml version="1.0" encoding="windows-1252"?>
<node id="890901" title="Help With Online Table Scraper" created="2011-03-01 23:40:03" updated="2011-03-01 23:40:03">
<type id="115">
perlquestion</type>
<author id="731671">
jdlev</author>
<data>
<field name="doctext">
It's been a while since I programmed in perl, so please try to be fairly elementary in your explanations :) &lt;p&gt;

I've been trying to extra data from the key statistics page of yahoo.  Basically, I'm looking to create a custom stock screener.  In order to do that, I've got to pull information from finance.yahoo.com.  The key statistics has a lot of info in it I'm interested in that doesn't appear in normal screeners. &lt;p&gt;

I've tried both HTML::TableExtract &amp; HTML::TableExtractor to no avail.  Looking at their setup is like trying to read french.&lt;p&gt;

Here's my code so far &lt;p&gt;

use LWP::Simple;
use HTML::TableExtract;




my $p = new HTML::TableExtract( depth =&gt; 0, count=&gt;0, gridmap =&gt;0 ); &lt;br&gt;
my $money = get("http://finance.yahoo.com/q/ks?s=MNDO+Key+Statistics"); &lt;br&gt;
 &lt;br&gt;


if (!$money) &lt;br&gt;

   {print "Sorry, no data returned";} &lt;br&gt;

  else &lt;br&gt;

    {print "I found data!";} &lt;br&gt;


    print $p; &lt;br&gt;

&lt;p&gt;

Thanks for helping to get me on the right track!


&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-731671"&gt;
I love it when a program comes together - jdhannibal
&lt;/div&gt;&lt;/div&gt;</field>
</data>
</node>
