Help for this page

Select Code to Download


  1. or download this
    
        (?{ my $v = eval $^N;
            say $i x $l,"->have number $v" if TRACE_JSON; 
            push_val($v); })
      )
  2. or download this
    (?{ push_number( $^N, $depth ); })
sub push_number {
...
TRACE( $depth, $msg );
  3. or download this
              (?>(?&STRING)) # ratchet
          \s*+ # ratchet
            [^\\"]++ # ratchet
          )*+ # ratchet
          (?: 0 | [1-9]\d*+ # ratchet