http://www.perlmonks.org?node_id=1044608


in reply to Re^9: json return value
in thread json return value

That worked, but need a slight change... 



#!/usr/bin/env perl

use strict;
use warnings;
use CGI;
use CGI::Carp('fatalsToBrowser');
use JSON::PP();

my $q = CGI->new;
print $q->header(),
$q->start_html(-title=>"Hello World"),
$q->h2("Hello World"),
$q->end_html();

[download]

Replies are listed 'Best First'.
Re^11: json return value
by poj (Abbot) on Jul 16, 2013 at 14:12 UTC
    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
[reply]
[d/l]

      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]

      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]

In Section Seekers of Perl Wisdom