Tengo un programa que diariamente baja un archivo y lo descomprime en una máquina:
Using perl Syntax Highlighting
use LWP::Simple; #Llama a la libreria LWP
mirror("http://www.precios.com.mx/pip-files//MatrizDiferencias/PiP_MV20071113_2.zip","PiP_MV20071113_2.zip"); #Trata de descargar el archivo
system('unzip', 'PiP_MV20071113_2.zip'); # Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files//MatrizOmegaH/PiP_MVI20071113_2.zip","PiP_MVI20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVI20071113_2.zip');# Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files/OtrosArchivos/psilva/PiP_MVD20071113_2.zip","PiP_MVD20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVD20071113_2.zip');# Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files//MatrizAlfaRepoH/PiP_MVR20071113_2.zip","PiP_MVR20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVR20071113_2.zip');# Al bajar archivo de la red lo descomprime
die "Error No Se Pudo Descargar Fichero De La Red Checa La Conexion\n" # Si hay problemas con la Red nos manda un mensaje
mirror("http://www.precios.com.mx/pip-files//MatrizDiferencias/PiP_MV20071113_2.zip","PiP_MV20071113_2.zip"); #Trata de descargar el archivo
system('unzip', 'PiP_MV20071113_2.zip'); # Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files//MatrizOmegaH/PiP_MVI20071113_2.zip","PiP_MVI20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVI20071113_2.zip');# Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files/OtrosArchivos/psilva/PiP_MVD20071113_2.zip","PiP_MVD20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVD20071113_2.zip');# Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files//MatrizAlfaRepoH/PiP_MVR20071113_2.zip","PiP_MVR20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVR20071113_2.zip');# Al bajar archivo de la red lo descomprime
die "Error No Se Pudo Descargar Fichero De La Red Checa La Conexion\n" # Si hay problemas con la Red nos manda un mensaje
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Quisiera saber cómo se puede estar actualizando el archivo para que al bajarse de Internet diariamente se le asigne una fecha al zip.
Saludos.
