Re^3: Json epoch datetime with perl

Try

#!perl;
use strict;
use JSON;
my $json = new JSON->escape_slash();
my $roundParams  = {
    'AllowParticipantsToSeeEachOther'  => JSON::PP::true,
    'DurationInMinutes'                => 10,
    'MaxGamePegValue'                  => 5,
    'MaxNumberOfCrackAttemptsPerCode'  => 18,
    'MaxNumberOfCrackAttemptsPerTeam'  => 0,
    'NumberOfDefaultHostParticipants'  => 1,
    'NumberOfPegsInRound'              => 4,
    'RoundStartTime'                   => "/Date(".time.")/",
    'TimeBetweenRoundATimeBetweenRoundAttemptsInSeconds' => 10
};
print $json->encode($roundParams);
[download]

poj

Comment on Re^3: Json epoch datetime with perl Download Code

Replies are listed 'Best First'.
Re^4: Json epoch datetime with perl by gurpreetsingh13 (Scribe) on May 28, 2014 at 10:53 UTC
Thanks a lot man. This worked out perfectly. Surprised, I still couldn't find such a thing over google or in docs.	[reply]
Re^5: Json epoch datetime with perl by Anonymous Monk on May 28, 2014 at 11:26 UTC
Thanks a lot man. This worked out perfectly. Surprised, I still couldn't find such a thing over google or in docs. FWIW https://metacpan.org/pod/JSON#escape_slash OTOH, most every JSON serializer avoid escaping forward slash because they all know to read forward slash :)	[reply]