fork download
  1. #!/usr/bin/perl
  2. # your code goes here
  3. use JSON::XS;
  4. my $xx = '{\"adi\": \"true\"}';
  5. my $encoder = JSON::XS->new();
  6. my $resultJsonHash = $encoder->decode($xx);
  7. print "ajhbjhdbd ".$resultJsonHash->{"adi"};
Runtime error #stdin #stdout #stderr 0s 22432KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
'"' expected, at character offset 1 (before "\\"adi\\": \\"true\\...") at prog.pl line 6.