News and Weather Scripts

I use the
LWP::Simple module to do these.
I will give you an example of getting the latest headlines from Yahoo!

Code Sample:

#!/usr/local/bin/perl
use LWP::Simple;
@headlines=();
$ticker=0;

$html = get("http://dailynews.yahoo.com/h/ts/");

while ($html =~ m/<a href=\"http:\/\/dailynews.yahoo.com\/h\/nm\/(.+?)\/ts\/(.+?).html\"><b>(.+?)<\/b><\/a>/sogi)
{

    $headline = "<a href=\"http:\/\/dailynews.yahoo.com\/h\/nm\/$1\/ts\/$2.html\">$3<\/a><br>\n";
    if($headline)
{
push(@headlines,$headline);
$ticker=1;
}
}

if($ticker==1)
{
open(yahoo,">yahoo.txt");
close(yahoo);

open(yahoo,">>yahoo.txt");
print yahoo @headlines[0..4];
close(yahoo);

}

------------------
An ostrich's eye is bigger than it's brain.

what's the lwp module and where can one get it?

thanks in advance

------------------
Get paid to surf, email, and everything else online! 75 hrs a month at 55+ cents an hour! Beats AllAdvantage Easily. CLICK 4 DETAILS

LWP::Simple comes with activestate perl I know for sure, but I am nnto sure it if comes with the "normal perl for unix".

You can find more info about LWP::Simple by searching on cpan.org for it.

------------------
An ostrich's eye is bigger than it's brain.