Question

I have used JSON::Any in my program to transfer the hash between client and server.

I faced one problem, I want to find whether the text (sent by client) is normal text or JSON encoded text.

Can anyone please tell me how to find,

without checking, I got some error in server side and it is closed.

Answer 1

You can’t do it without checking. The most simple approach is to just do the decoding and then handle the exception.

use JSON::Any;
use Try::Tiny;

my $perl_data;
for my $perhaps_json (
    q(this won't decode), q({"how":"ever", "this":"will"}),
) {
    try {
        $perl_data = JSON::Any->jsonToObj($perhaps_json);
    } catch {
        warn "decoding failed: $_\n";
    }
}
say "Even with invalid input, I did not crash!";
__END__
decoding failed: 'true' expected, at character offset 0 (before "this won't decode") at .../lib/perl5/site_perl/5.10.1/JSON/Any.pm line 529.

Even with invalid input, I did not crash!