benchmarking-parsing.pl

use JSON::XS;
use JSON::PP;
use mjson;
use Benchmark qw(:all);
my $string = "1409139024985\tINFO\t= Call duration 0 seconds";
my $json = '["1409139024985","INFO","= Call duration 0 seconds"]';
my $json2 = '{"time":"1409139024985","type":"INFO","data":"= Call duration 0 seconds\n"}';
cmpthese(100000, {
    split => sub {
        my @data = split /\t/, $string;
    },
    splithash => sub {
        my @data = split /\t/, $string;
        my $data = {time => $data[0], type => $data[1], data => $data[2]};
    },
    jsonpp => sub {
        my $data = JSON::PP::decode_json($json);
    },
    json => sub {
        my $data = JSON::XS::decode_json($json);
    },
    json2 => sub {
        my $data = JSON::XS::decode_json($json2);
    },
    mjson => sub {
        my $data = mjson::json($json);
    }
})

mjson.pm

#!/usr/bin/perl -w
package mjson;
use strict;
sub json {
  local $_=shift;
  local $^R;
  m{
    (?&VAL)(?{$_=$^R->[1]})
    (?(DEFINE)
      (?<VAL>  \s*((?&STR)|(?&NUM)|(?&BOOL)|(?&OBJ)|(?&ARY))\s*)
      (?<STR>  ("(?:\\.|.)*?")(?{no strict 'vars';[$^R,eval$^N]}))
      (?<NUM>  (-?(?:0|[1-9]\d*)(?:\.\d+)?(?:[eE][-+]?\d+)?)(?{[$^R,eval$^N]}))
      (?<BOOL> true(?{[$^R,1]})|false(?{[$^R,0]})|null(?{[$^R,undef]}))
      (?<KV>   \s*(?&STR)\s*:(?&VAL)(?{[$^R->[0][0],$^R->[0][1],$^R->[1]]}))
      (?<OBJ>  (?{[$^R,{}]}){(?:(?&KV)(?{[$^R->[0][0],{$^R->[1]=>$^R->[2]}]})(?:,(?&KV)(?{[$^R->[0][0],{%{$^R->[0][1]},$^R->[1]=>$^R->[2]}]}))*)?})
      (?<ARY>  (?{[$^R,[]]})\[(?:(?&VAL)(?{[$^R->[0][0],[$^R->[1]]]})(?:,(?&VAL)(?{[$^R->[0][0],[@{$^R->[0][1]},$^R->[1]]]}))*)?])
    )
  }xms;
  $_;
}
1;