Foro - Perl en Español

por **alperez** » 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?

#!/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

Publicidad

Re: Obtener datos JSON y guardarlos como JSON

¿Quién está conectado?