#!/usr/bin/perl -w

use strict;
use Image::Grab;

my $img = new Image::Grab;
$img->url('http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR/2004-01-01-00');
$img->grab;

#Salvamos la imagen al disco
open(IMAGEN, ">2004-01-01-00.jpg") || die"No se pudo crear archivo: $!";
print IMAGEN $img->image;
close IMAGEN;

#!/usr/bin/perl -w

#ENERO
if ($mes=1) {
    for ($dia=1;$dia<=9;$dia++) {
        for ($hora=0; $hora<=9; $hora=$hora+3) {
            my $content =`wget  http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR/2004-0$mes-0$dia-0$hora`;
        }
    }

    for ($dia=10;$dia<=31;$dia++) {
        for ($hora=0; $hora<=9; $hora=$hora+3) {
            {
                my $content =`wget  http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR/2004-0$mes-$dia-0$hora`;
            }
        }
    }

    system "(mv 2004-0$mes* 0$mes)";

#!/usr/bin/perl
#
# Descripción:
#   Bajar las imágenes de infrarojo del satélite GOES
#   para un año determinado, desde la web de NOAA.
#   Se añade la extensión '.jpg' a los ficheros bajados.
#   Antes de bajar un fichero, se comprueba que no haya sido bajado antes.
#
# Argumentos
#   El año se pasa como primer argumento.
#
# Joaquín Ferrero, julio 2008.
#

use LWP::Simple;

use strict;
use warnings;

# Constantes
my $URL_BASE = 'http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR';
my $IMG_FMT  = '%04d-%02d-%02d-%02d';
$|++;

# Año de bajada
if ( !@ARGV ) {
    die "Uso: $0 <año a bajar>\n";
}
my $anno = $ARGV[0];
if ( $anno < 100 ) {
    $anno += 2000;
}

# Bajar los imágenes
foreach my $mes ( 1 .. 12 ) {

    foreach my $dia ( 1 .. 31 ) {

        foreach my $hora ( 0, 3, 6, 9, 12, 15, 18, 21 ) {

            my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;

            print "Bajando fichero $imagen... ";
            mirror( "$URL_BASE/$imagen", "$imagen.jpg" );
            print "Ok\n";
        }
    }
}