<a href="/whois/www.apartments-buenos-aires-argentina.com">Whois</a>
que me extraiga todos los nombres de dominio quedando así
http://www.apartments-buenos-aires-argentina.com
quisiera que me los mostrara todos. Un saludo.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- ################## Manejamos los errores. ##################
- use strict;
- use warnings;
- use diagnostics;
- ################## Los módulos a utilizar. #################
- use LWP::UserAgent;
- use HTTP::Request;
- ################## Creamos nuestro navegador. ##############
- my $navegador = new LWP::UserAgent;
- $navegador-> agent ("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5");
- print "Escriba la IP de la web.\n";
- my $ip = <STDIN>;
- chomp ($ip);
- my $url = "http://www.ip-adress.com/reverse_ip/$ip";
- my $req = HTTP::Request -> new (GET => $url);
- my $response = $navegador -> request ($req);
- my $content = $response->content ();
- ################## Buscamos las cadenas. ###################
- while ($content =~ m!<a href="/whois/(.+)">Whois</a>!ig){
- open (DNS,">>resultados.txt");
- print DNS "$1\n";
- close (DNS);
- print "$1\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
