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 ).
-
- Publicidad
Continuar una descarga pausada
8 mensajes
• Página 1 de 1
Continuar una descarga pausada
por creating021 » 2007-12-09 10:47 @491
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
Publicidad
por explorer » 2007-12-09 17:02 @751
Un cliente puede notificar al servidor que desea bajar no todo el archivo sino solo una parte. Eso se lo indica en la cabecera HTTP con la entrada Range (sección 14, apartado 35, de la definición del protocolo HTTP/1.1).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por creating021 » 2007-12-20 12:59 @582
Perfecto.
¡Muchas gracias!
¡Muchas gracias!
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por explorer » 2007-12-26 16:45 @739
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".
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por creating021 » 2007-12-26 18:30 @812
Al final, con LWP no es tan dificil...
Eso debe de tomar los primero 512 bytes
Using perl Syntax Highlighting
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;
}
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;
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Eso debe de tomar los primero 512 bytes
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados