Foro - Perl en Español

Estimados:

Estoy intentando obtener con LWP::UserAgent la información retornada desde un sitio X. Utilizo wireshark para sniffear los paquetes enviados y recibidos, y necesito obtener un dato desde $res->content;, pero cuando corro mi script y leo la información entregada en $res->content, al parecer viene en binario, mientras que wireshark muestra correctamente la información:


De $res->content, necesito obtener el valor de time=1320604789399, pero en Perl, al correr mi script me retorna lo siguiente:



He estado buscando por qué no puedo leer $res->content para luego parsear la información y obtener el dato time, por lo que acudo a uds...

Espero me puedan ayudar

¡¡¡Saludos!!!

Tendrá algo que ver la codificación del contenido original, supongo. Y la codificación con la que lo sacas a pantalla o archivo.

Hay bastantes caracteres 'Ã', así que supongo que algo de la codificación utf8 estará involucrada.

Poco más se me ocurre decir...

Intentaré cambiar la codificación a ver si funciona.

Leí por ahí que $res->decoded_content; decodifica cualquier tipo de codificación, y en efecto, funcionó. Ahora obtengo los datos deseados. Por otra parte, tenía en el header

(Utilizar en vez de para ver la información)

Gracias de todas maneras

¡¡¡Saludos!!!

Una aclaración.

Los métodos content() y decoded_content() son del objeto HTTP::Response, y que la diferencia es que decoded_content() tiene en cuenta a lo que diga el campo "Content-Encoding" y a la codificación de los caracteres (codificados URL-encoded).

Si te funciona ahora, principalmente, es porque quitaste el 'Accept-Encoding' => 'gzip,deflate'.

De todas maneras, también podías usar algún módulo de Perl para descomprimir el contenido