Select Code to Download

    my $char = $self->_peek_char();

 > perl isJson.pl < file.json
Valid JSON.
...

 > perl loops.pl
okTook 446s.

 > perl skip.pl
okTook 235s.

 > perl loops.pl
panicTook 402s.
...
 > perl isJson.pl < file.json
Invalid bare word (troo) at line 1020000, pos 8 (t)
Took 39s.

#!/usr/bin/perl -w
use strict;
...
fail( undef, "Unclosed aggregate $stack[-1]" )
    if  @stack;
warn "Valid JSON.\n";