Re: Getting error while decoding JSON object via POST method

[tobyink]

in reply to Getting error while decoding JSON object via POST method

Here is an example of a CGI script that accepts JSON via HTTP POST, reads two numbers "a" and "b" from the input, and adds them together returning "c", plus an example client that uses the script...

#!/usr/bin/env perl

use strict;
use warnings;

use CGI ();
use JSON ();

my $q     = CGI->new;
my $json  = JSON->new->utf8;
my $input = $json->decode( $q->param('POSTDATA') );

my $a = $input->{a};
my $b = $input->{b};
my $c = $a + $b;

print $q->header("application/json");
print $json->encode({ c => $c });

#!/usr/bin/env perl

use strict;
use warnings;

use JSON ();
use LWP::UserAgent ();
use HTTP::Request::Common qw( POST );

my $data = { a => 40, b => 2 };

my $json = JSON->new->utf8;
my $ua   = LWP::UserAgent->new;

my $req = POST(
    "http://buzzword.org.uk/2013/json-addition.cgi",
    Content_Type => 'application/json',
    Content      => $json->encode($data),
);

my $result = $json->decode( $ua->request($req)->decoded_content );
print $result->{c}, "\n";

[perlCrazy]

thanks for response, still getting same error. i tried code : cleint :

use strict;
use warnings;
use JSON ();
use LWP::UserAgent ();
use HTTP::Request::Common qw( POST );
use Data::Dumper;

my $data = { a => 40, b => 2 };

my $json = JSON->new->utf8->allow_nonref;
my $ua   = LWP::UserAgent->new;

my $req = POST(
    "$my_url",
    Content_Type => 'application/json',
    Content      => $json->encode($data),
);
my $response = $ua->request($req);
if ($response->is_success) {
    #print Dumper($response->content());
    my $perlData = $json->decode($response->content());
    print Dumper($perlData);
}
else{
    print " inside falied block\n";
}

server side:

#use cgi.pm to get json as input
    my $q = CGI->new;
    my $json  = JSON->new->utf8;
    my $input = $json->decode( $q->param('POSTDATA') );
    #my $input = $q->param('POSTDATA');

    my $a = $input->{'a'};
    my $b = $input->{'b'};
    my $c = $a + $b;
    print $q->header("application/json");
    #print Dumper($input);
    print $json->encode({ c => $c });

output of run : ./test_client.pl $VAR1 = { 'error_msg' => 'Failed during execution: malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "(end of string)") ', 'status_code' => 500 }; Thanks

[Anonymous Monk]

And the reason you don't DUMP the data is because?

[perlCrazy]

which data ?

[perlCrazy]

just dumped the data server side and loos like :

{"a":40,"b":2={"a":40,&#034

it is broken.