Foro - Perl en Español

por **jimr1984** » 2017-12-20 11:11 @507

Hola.

Por favor, necesito si alguien puede ayudarme a extraer información.

{"Data":{"Cliente":{"Id":"939482","Nombre":"MENDEZ JOSE PEDRO GUME ","CodigoCI":"4222769ua"},"TotalPuntos":0,"DetallePuntos":[{"Descripcion":"Saldo Acumulado","Fecha":"20/09/2017","Puntos":0}],"TotalElements":1},"Errors":[],"Messages":[],"HasErrors":false,"HasMessages":false}

Necesito extraer los valores contenidos en: Id , Nombre , CodigoCI , TotalPuntos , Fecha, Puntos

Logré extraer el Id:

print "CODIGO CLIENTE $2 " if $content =~ m/(\"Id\":")(\d+)/g;

pero me atasqué en extraer lo demás.

Por favor, si pueden ayudarme.

Como algo adicional, para extraer el contenido del nombre intento algo así:

print "NOMBRE $1 " if $content =~ m/\"Nombre\":"(.+)/g;

pero extrae toda la cadena. No corta en ",.

#!/usr/bin/env perl
use v5.18;
use JSON;
 
my $json = '{"Data":{"Cliente":{"Id":"939482","Nombre":"MENDEZ JOSE PEDRO GUME ","CodigoCI":"4222769ua"},"TotalPuntos":0,"DetallePuntos":[{"Descripcion":"Saldo Acumulado","Fecha":"20/09/2017","Puntos":0}],"TotalElements":1},"Errors":[],"Messages":[],"HasErrors":false,"HasMessages":false}';
 
my $json_decoded = decode_json $json;
 
#use Data::Dumper;
#say Dumper $json_decoded;
 
say "Id:          $json_decoded->{Data}{Cliente}{Id}";
say "Nombre:      $json_decoded->{Data}{Cliente}{Nombre}";
say "CodigoCI:    $json_decoded->{Data}{Cliente}{CodigoCI}";
say "TotalPuntos: $json_decoded->{Data}{TotalPuntos}";
say "Fecha:       $json_decoded->{Data}{DetallePuntos}[0]{Fecha}";
say "Puntos:      $json_decoded->{Data}{DetallePuntos}[0]{Puntos}";
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Id:          939482

Nombre:      MENDEZ JOSE PEDRO GUME 

CodigoCI:    4222769ua

TotalPuntos: 0

Fecha:       20/09/2017

Puntos:      0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **jimr1984** » 2017-12-20 13:17 @595

Muchas gracias, estimado, fue de gran ayuda.

Ya resolví el problema. Gracias.

por **jimr1984** » 2019-02-06 16:15 @719

Por favor, ayuda con este json:

{"error_code":0,"result":{"id":"556dcc6d-2598-11e9-b0b8-98f2b3ed95b8","email":"[email protected]","token":"eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiI1NNTk4LTExZTktYjBiOC05OGYyYjNlZDk1YjgiLCJpYXQiOjE1NDk0ODM4MjUsImV4cCI6MTU0OTUwNTQyNSwibXNpc2RuIjoiNjA4NDQ4MjEiLCJpbXNpIjoiIiwiaW1laSI6IiJ9.ZwDSkwWYbxzD6HOUJcl8LE1-SmrzWza8","status":"A","terms":"sssssss"}}

¿Cómo puedo extraer el valor de id, email y token?

Intenté así y no me dio resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $json_decoded = decode_json $json;
 
#use Data::Dumper;
#say Dumper $json_decoded;
 
print  $json_decoded->{error_code}[0]{result}{id}";
print  $json_decoded->{error_code}[0]{result}{email}";
print  $json_decoded->{error_code}[0]{result}{token}";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Favor, si pueden ayudarme. Gracias.

por **explorer** » 2019-02-06 20:02 @876

Las comillas me dan error de sintaxis.

Foro - Perl en Español

Extraer información contenida en texto JSON

Extraer información contenida en texto JSON

Publicidad

Re: Extraer información contenida en texto JSON

Re: Extraer información contenida en texto JSON

Re: Extraer información contenida en texto JSON

Re: Extraer información contenida en texto JSON

¿Quién está conectado?