Foro - Perl en Español

Hola gente!
Como puedo saber el tiempo que me toma bajar un archivo por Sockets?
Es decir, como lwp-download que te imprime el tiempo promedio que tomara descarquarse X archivo, pero por Sockets (Ya tengo media interfase http hecha, pero nesecito esto)
Gracias.

Hola:

Te recomiendo que le heches un vistazo al módulo Time::HiRes
http://search.cpan.org/~jhi/Time-HiRes-1.87/HiRes.pm

Saludos

creating021 escribiste:Hola gente!
Como puedo saber el tiempo que me toma bajar un archivo por Sockets?
Es decir, como lwp-download que te imprime el tiempo promedio que tomara descarquarse X archivo, pero por Sockets (Ya tengo media interfase http hecha, pero nesecito esto)
Gracias.

s/nesecito/necesito/
s/interfase/interfaz/
s/descarquarse/descargarse/

Bueno después de las correcciones anteriores, la manera en la que podrías calcular el tiempo aproximado es tomar el tiempo antes de iniciar la transferencia, y después de recibir la cantidad de bytes esperados. Al final solo calculas la diferencia de tiempos y listo.

Código: Seleccionar todo

my $before = localtime( time );
my $data = get_file(); # socket code...
my $time = localtime( time ) - $before;


Saludos,

Perdon, que pena por lo de la ortografia.
Y gracias por las respuestas, pero no me explique bien, lo que quiero es hacer un motor http para un web browser y me diga tanto el porsentaje como el tiempo que tomara cargar la pagina y la descarga de archivos.
Realmente para hacer esto necesito saber el tamaño del archivo y la velocidad en la cual se trabaja.
print "Perdon por la molestia\n";
__END__

Que tal,

Tu comentario si cambia totalmente el escenario. En el caso de HTTP no es TAN trivial pero tampoco TAN complejo. En el HTTP HEADER viene la longitud en bytes de la petición que hiciste, cuando leas del socket, leerás NBYTES ( te recomiendo un buffer de 16K) hacia el buffer que le indiques, lo que necesitas es ir checando cada segundo el contador de bytes que irás incrementando en cada llamada a sysread() y sacar el promedio/porcentaje.

Esto por supuesto, tiene que ser de manera concurrente, te recomendaría usar threads pero la implementación de threading en Perl es horrible, así que terminarás haciendolo con fork().

Lo que te recomiendo es... una vez que analices el header y obtengas la longitud del request, creas un proceso con fork, deja que el child process que creaste accese a el contador de bytes, y que el parent siga con la adquisición de datos, con esto cada que transcurra un segundo checas el contador y calculas el promedio/porcentaje, y también podrías calcular el tiempo restante de la transferencia, con la información obtenida.

Espero haberme dado a entender, Saludos.

Ya veo, muchisimas gracias.