带有mod_perl的Json RPC中的问题

带有mod_perl的Json RPC中的问题,json,apache,perl,Json,Apache,Perl,我对Json RPC和mod_perl有问题。我试图通过mod_perl从Apache中运行的cgi脚本返回一个值。但是在返回值中,会自动添加以下apache头,因此我无法从客户端脚本访问返回值 Status: 200 Content-Type: application/json; charset=UTF-8 在我的Apache配置文件中,我有以下指令 LoadModule perl_module modules/mod_perl.so PerlSwitches -w PerlSwitches

我对Json RPC和mod_perl有问题。我试图通过mod_perl从Apache中运行的cgi脚本返回一个值。但是在返回值中,会自动添加以下apache头,因此我无法从客户端脚本访问返回值

Status: 200
Content-Type: application/json; charset=UTF-8
在我的Apache配置文件中,我有以下指令

LoadModule perl_module modules/mod_perl.so
PerlSwitches -w
PerlSwitches -T
Alias /perl /var/www/html/perl
<Directory /var/www/html/perl>
    SetHandler perl-script
    PerlResponseHandler ModPerl::Registry
    Options +ExecCGI
</Directory>
Myapp.pm是

#!/usr/bin/perl
package Myapp;
use base qw(JSON::RPC::Procedure); # Perl 5.6 or more than
use strict;
use Data::Dumper;
sub test : Public(u1:str){
        my ($s, $obj) = @_;
        my $u1 = $obj->{u1};
        return $u1;
}
1;
我的客户端脚本是

#!/usr/bin/perl
use JSON::RPC::Client;
use Data::Dumper;
my $client = new JSON::RPC::Client;
my $uri = 'http://IP/perl/test.cgi';  
$client->prepare($uri, ['test']);
$str= $client->test('testing');
print "$str\n\n";
在正常情况下,输出应为测试。但是在我的例子中,我得到了下面的错误

malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "Status: 200\r\nConte...") at /usr/local/share/perl5/JSON/RPC/Client.pm line 186
问题是因为一些http头会自动添加到返回值中。有没有办法抑制这些标题


注意:请不要建议使用普通的cgi脚本或将perl脚本作为守护进程运行,因为它已经在我的终端工作并经过测试。我们使用mod_perl来实现高性能。

添加了哪些额外的头文件?你能给出一个完整的输出示例吗?
malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "Status: 200\r\nConte...") at /usr/local/share/perl5/JSON/RPC/Client.pm line 186