Foro - Perl en Español

Publicado: **2019-03-22 07:31 @354**

Hola.

Estoy intentando mirar que cuando hago una consulta mediante query a una web y me devuelve la salida en formato JSON cómo poder guardar ese fichero para que no quede todo en una única línea.

Ese fichero luego lo tengo que mandar con rsyslog y creo que me está dando problemas el tratamiento con rsyslog porque está todo en una única línea.

¿Alguna idea?

Publicado: **2019-03-22 09:05 @420**

Puedes usar el módulo JSON, primero para leerlo desde la web, con decode_json, y luego reconvertirlo a JSON con el método to_json. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
# Módulos
use JSON;
 
my $json = JSON->new;
 
# Obtenemos el json. Aquí, desde un archivo externo
open my $JSON_FH, '<', 'code_40951_1.json';
my $message = decode_json(join "", <$JSON_FH>);
close $JSON_FH;
 
# Emisión reformateada de los datos
say to_json($message, {utf8 => 1, pretty => 1});
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Obtener datos JSON y guardarlos como JSON

Obtener datos JSON y guardarlos como JSON

Re: Obtener datos JSON y guardarlos como JSON