 Dom Dic 09, 2007 9:47 am
|
 |
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 487
Ubicación: Frente al monitor
|
|
| Continuar una descarga pausada |
 |
|
Quiero programar una aplicación que descarga archivos vía HTTP.
¿Cómo podría continuar una descarga si he parado de descargar?
En otras palabras... cómo hace Opera ( por ejemplo ) para continuar una descarga ( donde iba ) sin tener que reiniciar la descarga del archivo.
¿ Algún header de HTTP ?
Gracias.
PD: uso Socket pero cualquier módulo es útil ( en LWP no ví nada de esto ). |
|
|
|
|
Dom Dic 09, 2007 4:02 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4143
Ubicación: Valladolid, España
|
|
|
|
|
Jue Dic 20, 2007 11:59 am
|
|
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 487
Ubicación: Frente al monitor
|
|
|
|
|
Perfecto.
¡Muchas gracias! |
|
|
Mie Dic 26, 2007 2:50 pm
|
|
Zeokat
Perlero Frecuente
|
Registrado: 22 Ago 2006
Mensajes: 117
|
|
|
|
|
¿Algún ejemplo sencillo de cómo hacer esto con el módulo LWP?
Parece que hay que toquetear los headers.
Gracias de antemano. |
|
|
Mie Dic 26, 2007 3:45 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4143
Ubicación: Valladolid, España
|
|
|
|
|
| En el foro Básico hemos hablado de eso hace poco. Mira el hilo que se llama "Programa que se conecte a una web y baje datos". |
|
|
Mie Dic 26, 2007 4:25 pm
|
|
Zeokat
Perlero Frecuente
|
Registrado: 22 Ago 2006
Mensajes: 117
|
|
|
|
|
Si, si... ya le eché un ojo... pero no vi por ninguna parte los rangos de bytes... y poco me solucionó. A ver si encuentro algo por ahí.  |
|
|
Mie Dic 26, 2007 5:30 pm
|
|
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 487
Ubicación: Frente al monitor
|
|
|
|
|
Al final, con LWP no es tan dificil...
| Perl: | use LWP:: UserAgent;
use HTTP:: Request;
my $req = HTTP:: Request-> new(GET => 'http://www.example.com/example.tar.bz2');
$req-> header(Range => 'bytes=0-511');
my $ua = LWP:: UserAgent-> new();
my $respuesta = $ua-> request( $req );
if ( $respuesta-> is_success ) {
print $respuesta-> content;
} |
Eso debe de tomar los primero 512 bytes |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
