hi, i am generating a json file which will have all possible cases that a json object could hold and i want the object to be as large as 64kb and i am manually appending and forming the json object,but to validate the formed string i used from_json($string), i am getting the errors i could not find where the error occurs,please help me

sub json()
{
  my $obj="[";
  my $n=20;
  for(my $i=0;$i<$n;$i++)
  {
    $obj.="{ \"id\":\"stu_$i\", ";
    $obj.="\"is Active\":true,\"name\":\"studentname$i\",";
    $obj.="\"address\":".getaddr();
    $obj.="\"qualifications\":".getqualifications();
    my $k=int(rand(20))+20;
    $obj.="\"age\":$k,";
    $obj.="\"gender\":\"male\",";
    $obj.="\"email\":".getemail(); 
    $obj.="\"about\":".getabout();
    $obj.="\"rgistered\":\"".localtime()."\",";
    $obj.="\"phone\":".getphone();
    $obj.=getstandctry();
    $obj.="\"subjects\":".getsubjects().",";
    $obj.="\"subjects2\":".getsubjects();
    $obj.="},";
  }
  chop($obj) if $obj=~ m(,$);
 #if (is_json_valid($obj))
   # { 
   #    print " ... do something ...";
   # }
  my $data_structure = from_json($obj);
  print Dumper($data_structure) ;
  writetofile($data_structure);
  
}

[download]

error: , or ] expected while parsing array, at character offset 658656 (before "(end of string)") at C:/Strawberry/perl/vendor/lib/JSON.pm line 168. Press any key to continue . . .

In reply to need help in validating json by praveenchappa

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.