Foro - Perl en Español

por **situ** » 2009-01-09 11:05 @503

Tengo el siguiente script el cual tiene como función mostrarme los virtuals hosts asociados a la IP: 84.16.233.253

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::Simple;
# Compruebe que este pasado el  argumentos
$url= get "http://search.live.com/results.aspx?q=IP%3A84.16.233.253&go=&form=QBLH";
while(<>){
if($url=~/<cite>([A-Za-z0-9\.=\?\/]*)<\/cite>/){
}
print"$1\n";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que solamente me muestra el primer resultado y no todos los demás :s

Saludos.

use LWP::Simple;
if(@ARGV!= 1 ){

die"\nUse: $0 <ip>\n\n"

."   <ip>    Direccion IP del servidor web          [ej -> 84.16.233.253]\n";

}
$host=$ARGV[0];
chomp$host;
$url= get "http://www.robtex.com/ip/$host.html";
while($url=~m/http:\/\/www.robtex.com\/dns\/(.*)?"/g){
print"$1\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-01-11 15:06 @670

Pues aumentemos aún más el nivel de filtrado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($url=~m{<td class=td0 rowspan="1"><a href="http://www.robtex.com/dns/(.*?)"}g ){Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2009-01-11 15:10 @674

Como siempre, un lujo :d

Foro - Perl en Español

Mediante una IP obtener Vhost

Mediante una IP obtener Vhost

Publicidad

¿Quién está conectado?