펄에서 json을 인쇄하는 것이 잘못되었습니다

Question

나는 json 형식의 정보로 인쇄하려하고 있습니다. 내가 가진 것을 보여 주면 모든 것을 더 잘 설명 할 수 있다고 생각합니다.

foreach ...{ 
    printer($versions); 
} 

sub printer 
    { 
    foreach ...{ 
     my $results = id_cards(); 

    my $toJsonResult = JSON::to_json($results); 
    print $toJsonResult; 
    } 
} 

sub id_cards 
{ 
    my $returnData = []; 
    for($x=1;$y < $vehicle->{'ROWS'};$x++) 
    { 
      my $data; 
      $data->{year} = $vehicle->{$x}->{'YEAR'}; #there is more $data->repetativeness but not important to get the point 
      push(@$returnData,$data); 

      $y++ 
    } 

return $returnData; 
} 

인쇄 된 JSON :

[{"year":"2004"},{"year":"2004"}][{"year":"2002"},{"year":"2000"},{"year":"1994"}][{"year":"2004"},{"year":"1955"}][{"year":"2004"},{"year":"1955"}] 

이 내가 원하는 것과 매우 가까이 있지만, "객체"json으로 전혀 분리가 없다? (용어가 무엇인지는 확실하지 않지만) json이 유효하지는 않습니다. 이에 따라 그룹화 된 연도를 올바른 json으로 묶으려면 어떻게해야합니까?

Answer 1

당신은 이미 id_cards 하위의 오른쪽 생각이 :

sub some_function { 
    my $return_array = []; 
    foreach (...) { 
     push(@$return_array, $some_result); 
    } 
    return $return_array; 
} 

를 수행 printer에서 같은 일 : 가장 바깥 쪽 foreach에서 다음

sub printer { 
    my $return_array = []; 
    # for ... 
    return $return_array; 
} 

파일의 맨 위에 동일하게 :

my $results = []; 
foreach (...) { 
    push(@$results,printer($versions)); 
} 
print JSON.to_json($results); 

마지막 순간에 한 번만 인쇄하십시오. JSON은 완전한 형식의 데이터 구조를 기대합니다. 모든 것을 제공하지 않으면 제대로 형식을 지정하는 방법을 알기를 기대할 수 없습니다.

물론이 시점에서 함수 printer은 아무 것도 인쇄하지 않습니다. 그래서 그것은 잘못 명명되었습니다. 나는 그 이름을 card_collection 또는 뭔가로 바꿀 것이다.

Answer 2

JSON 텍스트를 반복하여 인쇄하고 있습니다. 루프를 돌 때마다 새 JSON 텍스트를 인쇄합니다.

루프에서 데이터 구조를 빌드 한 다음 나중에 모든 것을 JSON으로 변환해야합니다.

당신은 효과적으로 다음을 수행하고

sub printer { 
    my @data; 
    foreach ...{ 
     push(@data, id_cards()); 
    } 
    print JSON::to_json(\@data); 
} 

Answer 3

:

각 결과에 대한 새로운 JSON 문서를 생성하고, STDOUT에 모두 함께 걸립니다

my $result = [ { year => 2002 }, { year => 2003 } ]; 
my $toJsonResult = JSON::to_json($results); 
print $toJsonResult; # [{"year":"2002"},{"year":2003"}] 

my $result = [ { year => 2004 }, { year => 2005 } ]; 
my $toJsonResult = JSON::to_json($results); 
print $toJsonResult; # [{"year":"2004"},{"year":2005"}] 

my $result = [ { year => 2006 }, { year => 2007 } ]; 
my $toJsonResult = JSON::to_json($results); 
print $toJsonResult; # [{"year":"2006"},{"year":2007"}] 

.

모든 결과의 배열 인 하나의 문서를 만들고 싶으므로 모두 결과를 배열에 배치해야합니다.

my @results 

my $result = [ { year => 2002 }, { year => 2003 } ]; 
push $results, $result; 

my $result = [ { year => 2004 }, { year => 2005 } ]; 
push $results, $result; 

my $result = [ { year => 2006 }, { year => 2007 } ]; 
push $results, $result; 

my $toJsonResult = JSON::to_json(\@results); 
print $toJsonResult; # [[{"year":"2002"},{"year":"2003"}], 
         # [{"year":"2004"},{"year":"2005"}], 
         # [{"year":"2006"},{"year":"2007"}]]