• Publicidad

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

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

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

Notapor 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...
dasech
Perlero nuevo
Perlero nuevo
 
Mensajes: 14
Registrado: 2007-11-07 12:46 @574

Publicidad

Notapor explorer » 2007-11-20 11:44 @531

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...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Cómo descomprimir archivo que se baja de la red

Notapor 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 mensaje
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
dasech
Perlero nuevo
Perlero nuevo
 
Mensajes: 14
Registrado: 2007-11-07 12:46 @574

Notapor 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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor dasech » 2007-11-20 20:11 @882

explorer escribiste: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.


Muchas gracias. Como siempre, de gran ayuda. Saludos.. 8)
dasech
Perlero nuevo
Perlero nuevo
 
Mensajes: 14
Registrado: 2007-11-07 12:46 @574


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados