Foro - Perl en Español

Hola, buenos días. Es la primera vez que participo del foro.

Me apasiona mucho Perl, pero estoy empezando.
Por favor, si alguien pueda darme una LUZ.



Tengo un servidor y necesito consultar si un determinado archivo se encuentra en mi servidor,
sin sobrecargar el servidor, suponiendo que sean más de 1000 archivos.

La lista de archivos las tiene que leer de un lista.txt.

Yo tengo este código muy sencillo:
#!/usr/bin/perl -l
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://127.0.0.1/dvwa/login.php');
print $response->status_line;
con el cual si encuentra el archivo obtengo 200 Ok; en caso contrario, 404 Not Found.

Favor si alguien pudiera darme una ayuda, sobre todo ver si hay alguna forma de no sobrecargar al servidor.

Gracias...

Bienvenido a los foros de Perl en Español, jimr1984.

La forma de no sobrecargar el servidor es la de poner una pausa en cada petición que hagas.

Con un sleep(1); es más que suficiente (más información en perldoc -f sleep).

Otro tema es saber por qué quieres hacer eso.

Suena algo... ilegal...

¿No es mejor usar esto?



¿O es igual al get en el pedido con el servidor?

Pues sí, tienes razón: es mejor un simple HEAD que no un GET, para saber si un archivo existe o no.

un Head. ¿Por qué sería mejor un HEAD y no un GET?

¿Pueden aclararme mejor ese punto?

Hay herramientas que realizan esto. Se llaman arañas; se utilizan en pentesting web. Ejemplo: Dirbuster. Pero no es mi caso
aunque parezca algo ilegal.

Estoy elaborando una herramienta de fingerprinting personalizada.

Un HEAD nos dice si un recurso está disponible, devolviendo solo la cabecera HTTP, con la información de ese recurso. O un mensaje de error.

En cambio, con un GET lo que obtenemos es, además de la información devuelta por HEAD, el propio recurso. Y si no nos interesa almacenarlo, pues entonces estamos consumiendo ancho de banda.

Más información.

MUCHAS GRACIAS por la aclaración con respecto al HEAD y al GET. Saludos.