1#!/usr/bin/perl -w 2 3use strict; 4 5use JSON::RPC::Client; 6 7 8my $cgi_uri = 'http://example.com/cgi-bin/json/server.cgi/API'; # CGI 9my $uri = 'http://example.com/jsonrpc/API'; # Apache2 or daemon 10 11 12my $client = new JSON::RPC::Client; 13 14$client->prepare( $uri, ['sum', 'echo'] ); # if call /API/Sublcass, sum method return (sum * 2) 15 16print $client->sum(10, 23), "\n"; 17print $client->echo("abc\ndef"), "\n"; 18 19 20 21my $callobj = { 22 method => 'sum2', 23 params => [ 17, 25 ], # ex.) params => { a => 20, b => 10 } for JSON-RPC v1.1 24}; 25 26my $res = $client->call($cgi_uri, $callobj); 27 28if($res) { 29 if ($res->is_error) { 30 print "Error : ", $res->error_message; 31 } 32 else { 33 print $res->result; 34 } 35} 36else { 37 print $client->status_line; 38} 39 40 41 42 43