Category: information fetcher
Author/Contact Info Artem Litvinovichartem@hoflink.com
Description: Returns current temperature at specified zip code (or the default one). 
#!/usr/bin/perl
# curtemp.pl by Artem Litvinovich
use LWP::Simple;
my ($zip) =  @ARGV?@ARGV:("10027");
get("http://www.weather.com/weather/local/".$zip) =~ /Feels Like.*?>(.
++?)&/;
print $1?"Feels like $1".chr(176)."F at $zip\n":"Temperature informati
+on not available for $zip\n";
Replies are listed 'Best First'.
(sacked) Re: local weather
by sacked (Hermit) on Jan 16, 2002 at 23:38 UTC
    A different approach, using the Geo::Weather module: 
    #!/usr/bin/perl -w

use strict;
use Geo::Weather;
my $zip = shift || '02215';
print "Feels like " . Geo::Weather->new->get_weather($zip)->{heat} .
  chr( 176 ) . "F at $zip\n";

    [download]

    --sacked
[reply]
[d/l]

Back to Code Catacombs