6
특정 사용자와 연결된지도를 나열하지만 중첩 된 JSON 객체로 작업 한 적이없는 JSON 객체를 만들려고합니다. 이 펄 코드Perl에서 JSON 형식 지정
{
"success":"list of users maps",
"maps":[
{
"id":"1",
"name":"Home to LE",
"date_created":"1366559121"
},
{
"id":"2",
"name":"Test 1",
"date_created":"1366735066"
}
]
}
:
my $maps = [];
for (my $x = 0; $x < $sth->rows; $x++) {
my ($id, $name, $date) = $sth->fetchrow_array();
my $map = qq{{"id":"$id","name":"$name","date_created":"$date"}};
push $maps, $map;
}
my $j = JSON::XS->new->utf8;
my $output = $j->encode({
"success"=>"list of users maps",
"maps"=>$maps
});
하지만 무엇입니까 출력됩니다 : 이것은 내가 원하는 것입니다 그래서
{
"success":"list of users maps",
"maps":[
"{\"id\":\"1\",\"name\":\"Home to LE\",\"date_created\":\"1366559121\"}",
"{\"id\":\"2\",\"name\":\"Test 1\",\"date_created\":\"1366735066\"}"
]
}
내 자바 스크립트를 처리 할 때 data.maps [x] .id는 정의되지 않았습니다. 나는 출력되는 JSON의 형식이 틀림 없다고 확신한다.
누구든지 해결하도록 도와 줄 수 있습니까?
내가 실현해야 문자열 자신을 발급 예를 들어
, 나는 몇 가지 테스트 코드를 작성! 고마워, 난 펄 스크립트를 변경했습니다 그리고 지금 아름답게 작동합니다! – skeniver[Perl 5.14] (http://perldoc.perl.org/perl5140delta.html#Syntactical-Enhancements "perldoc perldelta5140")에 앞서'push $ maps, ... '는'push @ $ maps, ...'. –