Re^11: json return value

Ok so try again with JSON::PP

#!/usr/bin/env perl
use strict;
use warnings;
use CGI ();
use JSON::PP ();

my $q     = CGI->new;
my $data = $q->param('POSTDATA') || '{"a":100,"b":300}';

my $json  = JSON::PP->new->utf8;
my $input = $json->decode( $data );
my $a = $input->{a};
my $b = $input->{b};
my $c = $a + $b;

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

poj

Comment on Re^11: json return value Download Code

Replies are listed 'Best First'.
Re^12: json return value by stenasc (Novice) on Jul 17, 2013 at 07:52 UTC
It is finally working. Thank you to all the monks that replied and showed a great deal of patience. Couple of things causing the problems... The server was not set up correctly. Took a while for the administrator to accept this, but when he did, things started to work. It's frustrating when you are running round in circles, trying to tell these guys why it should be working and they're telling you something is wrong with your code, only to find out later that it was a server side issue. JSON was not allowed installed on the server as it was shared...dunno why. Had to use JSON::PP. I really do appreciate, the help and especially the code examples. This is an excellent forum and my faith has well and truly been restored.	[reply]
Re^12: json return value by stenasc (Novice) on Jul 16, 2013 at 14:30 UTC
Fantastic. Thank you...now we're getting somewhere. When I loaded up the cgi in the browser, I get {"c":400}. Now just need to get the perl client working.	[reply]