Foro - Perl en Español

Publicado: **2013-06-30 07:59 @374**

Hago una llamada a un webservice, pero lastimosamente el resultado parece que me lo devuelve en JSON, pero tiene unos slash que me generan problemas... o barras invertidas...

Tengo mi my $content = $mech->content();

Y el contenido se me muestra como algo así:

Código: Seleccionar todo: $VAR1 = '{"d":"[{\\"Id\\" : \\"48790\\", \\"IdEdicion\\" : \\"1\\", \\"IdTipoItem\\" : \\"16\\", \\"IdSeccion\\" : \\"37\\", \\"AnteTitulo\\" : \\"Club gastronÃ³mico\\", \\"Titulo\\" : \\"\\u0027The Green SamÃ¡nâ€™\\", \\"Resumen\\" : \\"A Cali llega una propuesta en donde los amantes de la buena mesa tendrÃ¡n su propio puesto. \\", \\"RutaImagen\\" : \\"http://www.xxx.com.co/upload/images/2012/2/27/48793_164756_29.jpg\\", \\"UrlFriendly\\" : \\"/cali/restaurantes-cali/sucursal/the-green-saman/48790\\", \\"FechaUltimaModificacion\\" : \\"10/2/2012 3:36:00 PM\\"},{\\"Id\\" : \\"48352\\", \\"IdEdicion\\" : \\"1\\", \\"IdTipoItem\\" : \\"16\\", \\"IdSeccion\\" : \\"37\\", \\"AnteTitulo\\" : \\"Un plan\\", \\"Titulo\\" : \\"Karen\\u0027s Pizza \\", \\"Resumen\\" : \\"Un lugar en donde la pizza, pastas, postres y cocteles toman una dimensiÃ³n divertida, elegante y con toques de distinciÃ³n. Cuenta con siete sucursales en la capital vallecaucana.\\", \\"RutaImagen\\" : \\"http://www.xxx.com.co/upload/images/2012/2/16/48353_22131_29.jpg\\", \\"UrlFriendly\\" : \\"/cali/restaurantes-cali/sucursal/karens-pizza/48352\\", \\"FechaUltimaModificacion\\" : \\"10/2/2012 3:36:00 PM\\"},{\\"Id\\" : \\"48222\\",

Para lo cual, obviamente decodificar JSON en Perl no me funciona, y honestamente ya no sé cómo obtener esa información... Debería poder pasarla a un array...

Publicado: **2013-06-30 08:52 @411**

Generalmente cuando tengan un problema así:
Hay que ver si la codificación está en UTF8, logré solucionarlo haciendo algo como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use utf8;
$sitios = $response->content; #Request de mi mech
utf8::encode($sitios);
$sitios = $self->dec_json($sitios); #obviamente tengo una función que hice llamada dec_json
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Publicado: **2013-06-30 09:31 @438**

No necesitas poner 'use utf8;' para usar utf8::encode().

Extraído de perldoc utf8:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

    Funciones auxiliares

       Las siguientes funciones se definen en el paquete "utf8::" en el núcleo de Perl. No necesita decir "use utf8" para usarlas y, de hecho, no debería hacerlo a menos que el código fuente esté realmente en UTF-8.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es más... el propio paquete JSON dispone de su propia función de decodificación, así que tampoco necesitas llamar a esa función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  my ($json_url) = @_;
  my $browser = WWW::Mechanize->new();
 
  eval{
    # descargar la página json:
    print "Obteniendo json $json_url\n";
    $browser->get( $json_url );
 
    my $contenido = $browser->content();
    my $json = JSON->new();
 
    my $json_texto = $json->allow_nonref->utf8($contenido);
 
    my @json_decodificado = decode_json($json_texto);
    print Dumper(@json_decodificado), length(@json_decodificado), "\n";
    ...;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

También hay posibilidad de pasarlo, directamente, a una estructura Perl:

$perl_scalar = from_json( $json_texto, { utf8 => 1 } );

que es equivalente a escribir todo esto:

$perl_scalar = JSON->new->utf8(1)->decode($json_texto);

aunque el módulo recomienda usar mejor decode_json(), ya que lo hace a partir de datos que estén en utf8.

Publicado: **2013-06-30 11:11 @507**

Bueno, realmente la solución era la codificación utf8 para poder pasar el json...

Me gusta más tu solución, explorer, como siempre...

Foro - Perl en Español

Decodificar respuesta de Webservice

Decodificar respuesta de Webservice

Re: Decodificar respuesta de Webservice

Re: Decodificar respuesta de Webservice

Re: Decodificar respuesta de Webservice