Perl JSON модуль |невозможно получить ответ JSON

Question

У меня есть скрипт, который я использую для заполнения объекта JQgrid. Следующий код, который при выполнении из CLI создает то, что выглядит как допустимый запрос JSON

#!/usr/bin/perl 
use CGI;
use DBI;
use JSON;
use Test::JSON;
use POSIX qw(ceil);
use strict;
use warnings;

my $cgi = CGI->new;
my $page = $cgi->param('page');
my $limit = $cgi->param('limit');
my $sidx = $cgi->param('sidx');
my $sordx = $cgi->param('sordx');

if(!$sidx) {$sidx = 1};
my $start = $limit*$page - $limit;

my $dbh = DBI->connect('dbi:mysql:hostname=localhost;database=test',"test","test") or die $DBI::errstr;
my $count = $dbh->selectrow_array("SELECT COUNT(id) AS count FROM test;");
my $sql = "SELECT ID, Name FROM test ORDER BY ? ? LIMIT ?, ?;";
my $sth = $dbh->prepare($sql) or die $dbh->errstr;

$sth->execute($sidx,$sordx,$start,$limit) or die $sth->errstr;
my $total_pages;
if( $count >0 ) {
        $total_pages = ceil($count/$limit);
} else {
        $total_pages = 0;
}
if ($page > $total_pages){ $page=$total_pages};
$start = $limit*$page - $limit;
my $i=0;
my $response = {};
$response->{page} = $page;
$response->{total} = $total_pages;
$response->{records} = $count;
        while (my $row = $sth->fetchrow_arrayref) {
                my @arr = @{$row};
                $response->{rows}[$i]{id} = $row->[0];
                $response->{rows}[$i]{cell} = \@arr;
                $i++;
        }

Test::JSON::is_valid_json $response, '... json is well formed';

print $cgi->header(-type => "application/json", -charset => "utf-8");
print JSON::to_json($response,{ ascii => 1, pretty => 1 });

Если я переведу сценарий в режим отладки CGI, он вернет следующее (примечание, отредактировано вручную для маскировки конфиденциальных данных):

{
   "page" : "1",
   "records" : "35",
   "rows" : [
      {
         "id" : "15675",
         "cell" : [
            "15675",
            "Test 1"
         ]
      },
      {
         "id" : "15676",
         "cell" : [
            "15676",
            "Test 2"
         ]
      }
   ],
   "total" : 4
}

Редактировать: я добавил пакет Test :: JSON, и он дает мне следующую ошибку:

Введен неверный JSON: неправильно сформирован Строка JSON, ни массив, ни объект, число, строка или атом, у символа смещение 0 (перед "(конец строки)") в /usr/lib/perl5/site_perl/5.8.8/JSON/Any.pm строка 571.

Я не уверен, куда идти дальше с этим. Любые другие изменения, которые я внесу в код, не будут помещать соответствующие скобки в возвращаемую строку.

Answer 1

Передав эту строку в JSON::decode, я вижу жалобы на буквальные переводы строк в строках "This is record 1" и "This is record 2".Что, если вы конвертируете их в \n?

foreach my $row ( @{$ref} ) {
    $response->{rows}[$i]{id} = @$row[0];
    $response->{rows}[$i]{cell} = $row;

    # escape newlines in database output
    s/\n/\\n/g for @{$response->{rows}[$i]{cell}};

    $i++;
}

(возможно, существует более общий и более надежный способ сделать это)