Foro - Perl en Español

por **BigBear** » 2013-04-01 15:00 @666

Hola, tengo el siguiente script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
 
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12');
 
my $response = $ua->get("http://www.supertangas.com");
 
print $response->headers();
#print $response->header('content-type');
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

El problema es que en la información que consigo de las cabeceras no encuentro el useragent que es lo que busco para mostrar en pantalla.

¿ Alguien sabe cómo conseguirlo ?

#!/usr/bin/perl
    
use Data::Dumper;
use LWP::UserAgent;
    
my $ua = new LWP::UserAgent;
my $user_agent ="Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ;
   $ua->agent($user_agent);
     
my $response = $ua->get("http://www.supertangas.com");
     
print "[+]$user_agent \n\n\n" ;
 
print Dumper \$response->headers();
   
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Creo que no te sale porque estás buscando el ua en la respuesta del servidor. No estoy seguro. Usa una variable y haz un print... Si quieres comprueba la salida con Data::Dumper.

por **BigBear** » 2013-04-01 16:02 @710

Ya probé haciendo dump como vos, pero en ningún lado está el User-Agent en la respuesta del servidor.

por **Dshellnoi_Unix** » 2013-04-01 16:07 @713

Es porque el user-agent va incluido en la petición y tu estás analizando la respuesta.

Saludos

por **explorer** » 2013-04-01 16:37 @734

El User-Agent identifica al cliente, no al servidor...

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$ lynx -head -dump http://google.es

HTTP/1.0 301 Moved Permanently

Location: http://www.google.es/

Content-Type: text/html; charset=UTF-8

Date: Mon, 01 Apr 2013 21:34:02 GMT

Expires: Wed, 01 May 2013 21:34:02 GMT

Cache-Control: public, max-age=2592000

Server: gws

Content-Length: 218

X-XSS-Protection: 1; mode=block

X-Frame-Options: SAMEORIGIN
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

De Wikipedia, artículo Agente de usuario:

Cuando un usuario accede a una página web, la aplicación generalmente envía una cadena de texto que identifica al agente de usuario ante el servidor. Este texto forma parte del pedido a través de HTTP, llevando como prefijo User-agent: o User-Agent: y generalmente incluye información como el nombre de la aplicación, la versión, el sistema operativo, y el idioma.

Lo que buscas está en la cabecera Server. Por ejemplo:

Server: Apache/2.2.16 (Debian)

Foro - Perl en Español

Conseguir UserAgent

Conseguir UserAgent

Publicidad

Re: Conseguir UserAgent

Re: Conseguir UserAgent

Re: Conseguir UserAgent

Re: Conseguir UserAgent

¿Quién está conectado?