- Código: Seleccionar todo
http://www.google.es/
http://www.ejemplo.com/
http://asdasd.perl.com/
Yo quiero que el script me abra esas webs pero de la forma siguiente:
- Código: Seleccionar todo
http://www.google.es/http://www.otrogoogle.es?
http://www.ejemplo.com/http://www.otrogoogle.es?
http://asdasd.perl.com/http://www.otrogoogle.es?
Creo que ya he logrado hacer la mayor parte, pero el problema está que el contador solo avanza cuando no le pongo el símbolo de interrogación a la web... "?"
Using perl Syntax Highlighting
use LWP::Simple;
use LWP::UserAgent;
print "Introduzca la dirección de la segunda web \n";
print "Ejemplo: http://www.otraweb.com \n";
$web = <STDIN>;
chomp($web);
print "Ahora introduzca el nombre del archivo \n";
print "Ejemplo: webs.txt \n";
$listaweb = <STDIN>;
chomp($listaweb);
open EXP, "$listaweb" or die 'Imposible abrir las webs!';
@total = <EXP>;
close EXP;
$rep = 0;
$repo = 0;
while ($rep < @total)
{
$conect = @total[$repo];
chomp($conect);
$cheke = ($conect.$web);
$doc = get $cheke;
print "[-] Abriendo y Añadiendo # $rep : $cheke \n";
$rep++;
$repo++;
}
use LWP::UserAgent;
print "Introduzca la dirección de la segunda web \n";
print "Ejemplo: http://www.otraweb.com \n";
$web = <STDIN>;
chomp($web);
print "Ahora introduzca el nombre del archivo \n";
print "Ejemplo: webs.txt \n";
$listaweb = <STDIN>;
chomp($listaweb);
open EXP, "$listaweb" or die 'Imposible abrir las webs!';
@total = <EXP>;
close EXP;
$rep = 0;
$repo = 0;
while ($rep < @total)
{
$conect = @total[$repo];
chomp($conect);
$cheke = ($conect.$web);
$doc = get $cheke;
print "[-] Abriendo y Añadiendo # $rep : $cheke \n";
$rep++;
$repo++;
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y aquí lo que me responde el script (uso ActivePerl):
- Código: Seleccionar todo
D:\Programacion>perl webs.pl
Introduzca la dirección de la segunda web
Ejemplo: http://www.otraweb.com
http://www.red-isla.com/index.php?
Ahora introduzca el nombre del archivo
Ejemplo: webs.txt
paginas.txt
Y ahí se queda colgado.. ahora mira lo que pasa cuando no le pongo "?":
- Código: Seleccionar todo
D:\Programacion>perl webs.pl
Introduzca la dirección de la segunda web
Ejemplo: http://www.otraweb.com
http://www.red-isla.com/index.php
Ahora introduzca el nombre del archivo
Ejemplo: webs.txt
paginas.txt
[-] Abriendo y Añadiendo # 0 : htt://www.spainchat.net/index.phphttp://www.red-isla.com/index.php
xt
[-] Abriendo y Añadiendo # 1 : htt://www.cubachat.org/index.htmlhttp://www.red-isla.com/index.php
xt
[-] Abriendo y Añadiendo # 2 : htt://cuba.red-isla.com/index.phphttp://www.red-isla.com/index.php
xt
No entiendo por qué se cuelga cuando le pongo el "?"
Gracias por adelantado
