Estoy tratando de descargar imágenes de un sitio web mediante un código que realizó explorer en su momento. Este descarga la imagen pero no puedo abrirla (dice que no se puede cargar).
Les pido orientación al respecto. Muchas gracias.
PD: El código que muestro no es el original, lo modifiqué con ejemplos de Internet.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- use LWP::Simple;
- my $url = 'https://www.esrl.noaa.gov/psd/cgi-bin/data/composites/comp.day.pl?var=Sea+Level+Pressure&level=1000mb&iy%5B1%5D=&im%5B1%5D=&id%5B1%5D=&iy%5B2%5D=&im%5B2%5D=&id%5B2%5D=&iy%5B3%5D=&im%5B3%5D=&id%5B3%5D=&iy%5B4%5D=&im%5B4%5D=&id%5B4%5D=&iy%5B5%5D=&im%5B5%5D=&id%5B5%5D=&iy%5B6%5D=&im%5B6%5D=&id%5B6%5D=&iy%5B7%5D=&im%5B7%5D=&id%5B7%5D=&iy%5B8%5D=&im%5B8%5D=&id%5B8%5D=&iy%5B9%5D=&im%5B9%5D=&id%5B9%5D=&iy%5B10%5D=&im%5B10%5D=&id%5B10%5D=&iy%5B11%5D=&im%5B11%5D=&id%5B11%5D=&iy%5B12%5D=&im%5B12%5D=&id%5B12%5D=&iy%5B13%5D=&im%5B13%5D=&id%5B13%5D=&iy%5B14%5D=&im%5B14%5D=&id%5B14%5D=&iy%5B15%5D=&im%5B15%5D=&id%5B15%5D=&iy%5B16%5D=&im%5B16%5D=&id%5B16%5D=&iy%5B17%5D=&im%5B17%5D=&id%5B17%5D=&iy%5B18%5D=&im%5B18%5D=&id%5B18%5D=&iy%5B19%5D=&im%5B19%5D=&id%5B19%5D=&iy%5B20%5D=&im%5B20%5D=&id%5B20%5D=&monr1=5&dayr1=1&monr2=5&dayr2=1&iyr%5B1%5D=2018&filenamein=&plotlabel=&lag=0&labelc=Black+and+White&labels=Contours+%28Black+and+White+Only%29&type=1&scale=&label=1&skip_vector=&cint=&lowr=&highr=&istate=0&proj=Custom&xlat1=-60&xlat2=-10&xlon1=240&xlon2=330&custproj=Cylindrical+Equidistant&level1=1000mb&level2=10mb&Submit=Create+Plot';
- my $file = 'slp.gif';
- getstore($url, $file);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
