Foro - Perl en Español

por **coltx** » 2018-06-25 15:59 @708

Hola, amigos, tengo el siguiente script para capturar un endpoint en JSON.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use utf8::all;
use JSON;
use LWP::Simple;
use Data::Dumper;
 
        my $ua = LWP::UserAgent->new;
        
        my $server_endpoint = "http://comercio.comerxxx.com/";                   #URL contains actual URL
        
        # set custom HTTP request header fields
        my $req = HTTP::Request->new( GET => $server_endpoint );
        $req->header( 'content-type' => 'application/json' );
        $req->header( 'Accept'       => 'application/json' );
        $req->header( 'secret'       => 'secreto' );
        $req->header( 'dateDesde'       => '2018-06-10' );
        $req->header( 'dateHasta'       => '2018-06-30' );
        
        my $response =  $ua->request($req)->as_string;
       print $response;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Al ejecutar lo anterior recibo esto:

[{"Numero":100,"Fecha":"2018-01-01","CampoC":[]},{"Numero":200,"Fecha":"2018-01-02","CampoC":[]}]

Ahora bien, si cambio las últimas dos líneas por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $response =  $ua->request($req);
    my $data = decode_json($response);
    print $data;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

recibo:

malformed JSON string, neither tag, array, object, number, string or atom, at character offset 0 (before "(end of string)") at GER_DATOS.pl line 29.

Entonces no sé cómo tomar los valores que me entrega el endpoint ya que al dejarlos como string no sé cómo interpretarlo y si lo trato de decodificar me arroja el error anterior. Favor, su ayuda para capturar la información que recibo desde esa API.

Gracias.

El problema es que decode_json() está esperando un texto (codificado en UTF-8), pero lo que le estás pasando es un objeto HTTP::Response.

Creo que se te ha olvidado traducir la respuesta a texto, poniendo "->as_string", como tenías puesto en la línea 20 en el primer código (o dicho de otra manera: deja la línea 20 como estaba).

Y el resultado de decode_json() es una estructura de datos. Si haces un simple print(), no verás mucho.

Si quieres ver la forma de esa estructura, recuerda que Data::Dumper es tu amigo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Data::Dumper;
print Dumper($data);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **coltx** » 2018-06-26 09:30 @438

explorer, al agregar las líneas como me dices:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $response =  $ua->request($req)->as_string;
my $data = decode_json($response);
use Data::Dumper;
print Dumper($data);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

recibo

malformed JSON string, neither tag, array, object, number, string or atom, at character offset 0 (before "HTTP/1.1 200 OK\nDat...") at ....

Si dejo solo lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $response =  $ua->request($req)->as_string;
print $response;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

recibo lo siguiente, pero no sé cómo capturar la información.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

HTTP/1.1 200 OK

Date: Tue, 26 Jun 2018 14:29:03 GMT

Server: Kesr

Content-Length: 136224

Content-Type: json/application

Client-Date: Tue, 26 Jun 2018 13:29:12 GMT

Client-Peer: 201.187.108.133:80

Client-Response-Num: 1

X-Powered-By: ASP.NET

[{"Numero":100,"Fecha":"2018-01-01","CampoC":[]},{"Numero":200,"Fecha":"2018-01-02","CampoC":[]}]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Muchas gracias, explorer.

por **explorer** » 2018-06-26 10:05 @462

Disculpas. He respondido de memoria.

A ver si con estas líneas te funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $response = $ua->request($req);
my $content  = $response->content;
my $data = decode_json($content);
 
use Data::Dumper;
print Dumper($data)
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Interpretar una respuesta JSON

Interpretar una respuesta JSON

Publicidad

Re: Interpretar una respuesta JSON

Re: Interpretar una respuesta JSON

Re: Interpretar una respuesta JSON

¿Quién está conectado?