Foro - Perl en Español

por **rraulqm92** » 2014-10-28 11:38 @526

Buenas a todos.

Les explico: Tengo un solr que me saca una URL que contiene unos datos en formato JSON.

He creado un script que entra en el json y me guarda los datos para crear un correo electrónico.

El script funciona cuando hay datos, pero hay veces que mi json no debe tener datos. Cuando sucede esto necesitaría pasar a la siguiente llamada pero me salta el siguiente error:

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

¿Cómo podría hacer para omitir estos errores y que mi script no se quedara parado?

Esta es la llamada al json:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                        $url = get($url);
                        utf8::encode($url)
 
                        my $decoded = decode_json( $url );
                        my @response = @{$decoded->{'response'}->{'docs'} };
                        foreach my $data ( @response ) {
                                $contador = $contador +1;
                                my $titulo_disp = $data->{'titulo'};
                                my $id_disposicion = $data->{'id'};
                         }
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

¡Muchas gracias!

    sub PP_decode_json {
        my ($self, $opt); # $opt is an effective flag during this decode_json.
 
        ($self, $text, $opt) = @_;
 
        ($at, $ch, $depth) = (0, '', 0);
 
        if ( !defined $text or ref $text ) {
            decode_error("malformed JSON string, neither array, object, number, string or atom");
        }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahí vemos que sale el error que mencionas. Es decir: sale el error si $text está vacío o no es una referencia. Lo que luego hace decode_error es generar una llamada Carp que saca el error en pantalla.

Si el error es solamente detectar si el texto está vacío o no, esa comprobación la puedes hacer antes de hacer el decodificado JSON:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                        $url = get($url);
                        utf8::encode($url)
 
                        if ($url) {               # comprobamos que tenemos al menos algo
                            my $decoded = decode_json( $url );
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Otra forma es capturar el error, con un eval():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

eval {
    $url = get($url):
    utf8::encode($url)
    my $decoded = decode_json( $url );
    ...;
}
if ($@) {
    warn $@;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Bueno, queda más bonito con Try:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

try {
    $url = get($url):
    utf8::encode($url)
    my $decoded = decode_json( $url );
    ...;
}
catch {
    when (/malformed JSON string/) {
        warn "Error en la cadena JSON";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **rraulqm92** » 2014-10-29 11:21 @515

¡¡¡Muchas gracias!!!

Me salvaste de un apuro. Utilicé el último método, el de Try

Foro - Perl en Español

Omitir error JSON

Omitir error JSON

Publicidad

Re: Omitir error JSON

Re: Omitir error JSON

¿Quién está conectado?