Foro - Perl en Español

por **dasech** » 2007-11-20 11:34 @523

¿Cómo crear un programa que descomprima un archivo al bajarlo de Internet e insertarlo en una ubicación? ¿Algún ejemplo? gracias...

Yo utilizaría un editor de textos para hacer un programa Perl que se conectara (según el protocolo) al servidor, bajar el fichero, descomprimirlo con alguno de los paquetes de la familia Archive:: y luego moverlo con la función move() del módulo File::Copy.

En este foro hay algún ejemplo de cada uno. Usa el sistema de búsqueda, por favor...

por **dasech** » 2007-11-20 11:55 @538

Ya tengo el programa que baja el archivo. Nada más me falta agregar el unzip pero no sé en qué línea agregarlo. Mira, el programa va así.

Sintáxis: [ Descargar ] [ Ocultar ]

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

mirror("http://www.precios.com.mx/pip-files//MatrizOmegaH/PiP_MVI20071113_2.zip","PiP_MVI20071113_2.zip");#Trata de descargar el archivo solicitado

mirror("http://www.precios.com.mx/pip-files/OtrosArchivos/psilva/PiP_MVD20071113_2.zip","PiP_MVD20071113_2.zip");#Trata de descargar el archivo solicitado

mirror("http://www.precios.com.mx/pip-files//MatrizAlfaRepoH/PiP_MVR20071113_2.zip","PiP_MVR20071113_2.zip");#Trata de descargar el archivo solicitado

die"Error En Conexion No Se Pudo Descargar Fichero De La Red\n"# Si hay problemas con la Red nos manda un mensajeColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-11-20 15:21 @681

Puedes agregar la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system('unzip','PiP_MV20071113_2.zip');Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

después de descargarlo.

Otra opción es usar las facilidades que te da el módulo Archive::Zip.

por **dasech** » 2007-11-20 20:11 @882

explorer escribiste:Puedes agregar la línea

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
system('unzip', 'PiP_MV20071113_2.zip');
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

después de descargarlo.

Otra opción es usar las facilidades que te da el módulo Archive::Zip.

Muchas gracias. Como siempre, de gran ayuda. Saludos..

Foro - Perl en Español

Cómo crear programa que descomprima un archivo al bajarlo...

Cómo crear programa que descomprima un archivo al bajarlo...

Publicidad

Cómo descomprimir archivo que se baja de la red

¿Quién está conectado?