Foro - Perl en Español

por **BigBear** » 2015-02-02 11:24 @516

Hola. Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->timeout(10);
 
my $target = "5.135.178.142";
 
$re = tomar("http://www.melissadata.com/lookups/iplocation.asp",{'ipaddress='=>$target,'Submit'=>'submit'});
 
print $re;
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

En este código estoy haciendo un formulario para que la página me revele unos datos de una IP pero el formulario nunca se completa, o sea, sigue apareciendo normal como si hubiese hecho algo mal.

¿ Cuál es el error ?

use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
 
my $code = tomar("http://www.iplocation.net",{"query"=>"5.135.178.142","submit"=>"Query"});
 
if($code=~/<td width=\"80\">(.*)<\/td><td>(.*) <img src="(.*)"><\/td><td>(.*)<\/td><td>(.*)<\/td><td>(.*)<\/td>/) {
print $3."\n";
print $5."\n";
print $6."\n";
} else {
print $code;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, [ %{$var} ] )->content;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Básicamente hace lo mismo en otra página, esta vez sí muestra datos pero las expresiones regulares me dan problemas en esta zona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<td width="80">5.135.178.142</td><td>France <img src="/images/flags/fr.gif"></td><td>Nord-pas-de-calais</td><td>Roubaix</td><td>Ovh Sas</td></tr><tr><td co
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Qué estoy haciendo mal ?

por **explorer** » 2015-02-03 10:42 @488

A mi me funciona sin problemas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
 
my $code = q(<td width="80">5.135.178.142</td><td>France <img src="/images/flags/fr.gif"></td><td>Nord-pas-de-calais</td><td>Roubaix</td><td>Ovh Sas</td></tr><tr><td co);
 
$code =~ m{<td width="80">(.*?)</td><td>(.*?) <img src="(.*?)"></td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td>};
 
say "[$1][$2][$3][$4][$5][$6]";   # [5.135.178.142][France][/images/flags/fr.gif][Nord-pas-de-calais][Roubaix][Ovh Sas]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra forma de escribirlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$code =~ m{<td width="80">(?<ip>.*?)</td><td>(?<pais>.*?) <img src="(?<img>.*?)"></td><td>(?<villa>.*?)</td><td>(?<prov>.*?)</td><td>(?<isp>.*?)</td>};
say "[$+{ip}][$+{pais}][$+{img}][$+{villa}][$+{prov}][$+{isp}]";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

O incluso más bonito así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$code =~ m{
            <td[ ]width="80"> (?<ip>    .*?)                              </td>
            <td>              (?<pais>  .*?) [ ]<img[ ]src="(?<img>.*?)"> </td>
            <td>              (?<villa> .*?)                              </td>
            <td>              (?<prov>  .*?)                              </td>
            <td>              (?<isp>   .*?)                              </td>
        }x;
 
say "[$+{ip}][$+{pais}][$+{img}][$+{villa}][$+{prov}][$+{isp}]";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Ayuda con formulario

Ayuda con formulario

Publicidad

Re: Ayuda con formulario

Re: Ayuda con formulario

Re: Ayuda con formulario

Re: Ayuda con formulario

Re: Ayuda con formulario

¿Quién está conectado?