Re^2: Automated extraction of NOAA weather satellite images

[Scott7477]

Thanks for the feedback. I was looking at the POSIX module for including a timestamp in the saved filenames, but wanted to get a script up and running quickly and having never used the "strftime" function you mention Time::Tiny filled the bill. I agree with the potential problems you point out that the timestamps in my code have... I have updated my code to use the "strftime" function and the filenames now are very precise(for example "eastconusir20070530_074348.jpg"):

#NOAA updates the images on the GOES website every 30 minutes

use strict;
use LWP::Simple;
use POSIX;


my $image;
my $url;
my %images = (
 "eastconusir"  => "http://www.goes.noaa.gov/GIFS/ECIR.JPG",
 "eastconusvis" => "http://www.goes.noaa.gov/GIFS/ECVS.JPG",
 "eastconuswv"  => "http://www.goes.noaa.gov/GIFS/ECWV.JPG",
 "westconusir"  => "http://www.goes.noaa.gov/GIFS/WCIR.JPG",
 "westconusvis" => "http://www.goes.noaa.gov/GIFS/WCVS.JPG",
 "westconusvwv" => "http://www.goes.noaa.gov/GIFS/WCWV.JPG",
        );

my $timestring = strftime( "%Y%m%d_%H%M%S", localtime );
print $timestring."\n";

foreach my $key (keys %images) {
    print $key."\n";
    print $images{$key}."\n";
    my $status = getstore($images{$key},$key.$timestring.".jpg");
        print $status."\n" ;
    };