Bueno...tenia que usar sockets para una cosa y pensé en Perl por su facilidad y rendimiento...
El script debe visitar una web una cantidad de veces, metidas ambas por el usuario
Antes de nada, dejo claro que este script no es para hacer algún tipo de DOS o algo parecido. No es para atacar NADA.
Lo hice y todo iba bien, hasta cuando metí los bucles...
Creo que el problema es de las variables..pero no tengo ni idea
Aquí con la última técnologia, goto
#!/bin/perl
#Ruben Ruiz "BenRu"
use LWP::Simple;
$veces = 0;
$cantidad=<STDIN>;
inicio:
if ($veces <= $cantidad)
{
print "\n";
print "Direccion: ";
$page=<STDIN>;
chop $page;
$url = "http://$page";
$veces = $veces + 1;
goto inicio;
}
else
{
exit();
}
Aqui con un bucle:
#!/bin/perl
#Ruben Ruiz "BenRu"
use LWP::Simple;
$veces = 0;
$cantidad=<STDIN>;
while($veces <= $cantidad)
{
print "\n";
print "Direccion: ";
$page=<STDIN>;
$url = "http://$page";
print "$url\n";
$veces = $veces + 1;
}
El interprete no me muestra ningún error y se ejecuta, pero no arranca.
Mostrar Mensajes
)
