Hola.
Estoy haciendo un script para descargar unos archivos y guardarlos en mi PC. Este es el código:
use strict;
use LWP::Simple;
my $saved_dir = '..\Archivos\\';
my $url;
my $file;
$url = 'http://igdawg.org/pubs/cwd200_alleles.txt';
$file = $saved_dir.'CWD.txt';
getstore($url, $file);
$url = 'https://frequency.nmdp.org/Download?fName=/DRB1~DQB1.xls';
$file = $saved_dir.'frequency.xls';
getstore($url, $file);
El primer archivo lo descarga sin ningún problema, el segundo da este error:
Use of uninitialized value in subroutine entry at blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\randomize.al) line ...
News of Foro - Perl en Español