All the Perl that's Practical to Extract and Report
use Perl Log In
scot (6695)
scot
(email not shown publicly)
http://redcloudresearch.com/
Perl hacker
"apprentice" sysadmin for ASP running Sparc-Solaris-Java-Oracle stack
(email not shown publicly)
http://redcloudresearch.com/
Perl hacker
"apprentice" sysadmin for ASP running Sparc-Solaris-Java-Oracle stack
Wednesday June 13, 2007
05:47 PM
Automated downloading of NOAA radar images
Inspired by Develop your own weather maps and alerts with Perl and GD, I have put together a script which downloads the base radar image from a specific site at a specified interval.
use strict;
use LWP::Simple;
use POSIX;
my $refresh = 1800;
do {
my $base="http://radar.weather.gov/ridge/RadarImg/N0R/MTX_N0R_0.gif";
my $timestring = strftime( "%Y%m%d_%H%M%S", gmtime() );
my $savefilename = "SLCRadar_".$timestring.".gif"; my $status = getstore($base,$savefilename);
print $status."\n";
sleep $refresh;
} while ($refresh);
<blockquote>See my Standard Code Disclaimer
have an eval. In such cases, immediate and radical amputation of the
power cord is the only recourse.
--Larry Wall
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Automated downloading of NOAA radar images 0 Comments More | Login | Reply /