URL que utilizo, método POST: http://www.cual-es-mi-ip.net/geolocalizar-ip-mapa direccion-ip = 200.58.44.25
NOTA: no he visto que pueda ser algo ilegal lo que se está solicitando.
Using perl Syntax Highlighting
- sub GEOLOCALIZAR {
- my ($ipd) = @_;
- my $url = "http://www.cual-es-mi-ip.net/geolocalizar-ip-mapa";
- my $ua = LWP::UserAgent->new();
- my $req = HTTP::Request->new(POST => $url) ;
- my $post_data = "direccion-ip=".$ipd;
- $req->content_type('application/x-www-form-urlencoded');
- $req->content($post_data);
- my $resp = $ua->request($req);
- my $message = $resp->content(); # <---- el contenido de la web lo guardo en $message ¡OJO! tiene multilíneas
- &EXTRAER_INFORMACION($message);
- }
- sub EXTRAER_INFORMACION
- {
- my ($contenido) = @_;
- my ($pais,$ciudad,$latitud,$longitud,$isp);
- if ($contenido =~ / AQUI EL FILTRO/)
- {
- print $pais = $1;
- print $ciudad= $2;
- print $latitud= $3;
- print $longitud= $4;
- print $isp= $5;
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El código fuente de la web es:
Using html4strict Syntax Highlighting
- <div class="panel panel-default">
- <div class="panel-body">
- <div class="row">
- <div class="col-md-12">
- <table class="table table-striped">
- <tbody>
- <tr>
- <td>País</td>
- <td><strong>United States</strong></td>
- </tr>
- <tr>
- <td>Ciudad</td>
- <td><strong></strong></td>
- </tr>
- <tr>
- <td>Latitud</td>
- <td id="latitud" data-latitud="38"><strong>38</strong></td>
- </tr>
- <tr>
- <td>Longitud</td>
- <td id="longitud" data-longitud="-97"><strong>-97</strong></td>
- </tr>
- <tr>
- <td>ISP</td>
- <td><strong>Verizon Business</strong></td>
- </tr>
- </tbody>
- </table>
- </div>
- </div>
- </div>
- </div>
- </div>
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Por favor, necesito extraer la información que devuelve la página, solo los valores de los campos que señalé.
¿Cómo puedo hacerlo o resolverlo?
Muchas gracias.